daily pastebin goal
42%
SHARE
TWEET

Untitled

a guest Feb 13th, 2018 51 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. dados_dia <- data.frame(dados_dia)
  2.  
  3.     ICL <- c(0,0.3,0.6,0.9)
  4.     VEL <- c(0,2,4,8)
  5.     URE <- c(0,70,80,90,100)
  6.     TPR <- c(0,14,19,24,40)
  7.  
  8.  
  9.  
  10.     for(i in 2:4){
  11.         for(j in 2:4){
  12.             for(k in 2:5){
  13.                 for(l in 2:5){
  14.  
  15. print(c('ICL > ',ICL[i-1],' e ICL <= ',ICL[i]))
  16.   print(c('VEL > ', VEL[j-1],' e VEL <= ',VEL[j]))
  17.     print(c('URE > ',URE[k-1],' e URE <= ',URE[k]))
  18.       print(c('TPR > ',TPR[l-1],' e TPR <= ',TPR[l])) ## essas são as combinações
  19.  
  20.  
  21. print(c(dados_dia$date[dados_dia$I.Cla > ICL[i-1] &                                    dados_dia$I.Cla <= ICL[i] &
  22.                                                       dados_dia$speed > VEL[j-1] &
  23.                                                       dados_dia$speed <= VEL[j] &
  24.                                                       dados_dia$rH > URE[k-1] &
  25.                                                       dados_dia$rH <= URE[k] &
  26.                                                       dados_dia$Tair > TPR[l-1] &
  27.                                                       dados_dia$Tair <= TPR[l]] )) ## Aqui sai as datas em que ocorrem cada combinação acima
  28.                 print('')
  29.                 print('')
  30.                 print('')
  31.                 }
  32.             }
  33.         }
  34.     }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top