GGPLOT2     HEALTH     R     EMISSIONS     STATISTICS     GIS   WRF Open Air Air Pollution  

miércoles, 25 de julio de 2012

R. Uso de "for"



#Práctico, uso for
Fibonacci <- numeric(12); #Vector numérico de 12 elementos
Fibonacci[1] <- Fibonacci[2] <- 1; #El primer y segundo elemento son 1
for (i in 3:12) Fibonacci[i] <- Fibonacci[i - 2] + Fibonacci[i - 1]
Fibonacci
[1]   1   1   2   3   5   8  13  21  34  55  89 144
#con los primeros y segundo números 2
Fibonacci[1] <- Fibonacci[2] <- 2
for (i in 3:12) Fibonacci[i] <- Fibonacci[i - 2] + Fibonacci[i - 1]
Fibonacci
[1]   2   2   4   6  10  16  26  42  68 110 178 288
#Primer número 2 segundo número 3
Fibonacci[1] <- 2
Fibonacci[2] <- 3
for (i in 3:12) Fibonacci[i] <- Fibonacci[i - 2] + Fibonacci[i - 1]
Fibonacci
[1]   2   3   5   8  13  21  34  55  89 144 233 377
#Restando en vez de sumando
Fibonacci[1] <- Fibonacci[2] <- 1; #El primer y segundo elemento son 1
for (i in 3:12) Fibonacci[i] <- Fibonacci[i - 2] - Fibonacci[i - 1]
Fibonacci
[1]   1   1   0   1  -1   2  -3   5  -8  13 -21  34
#Cambiando otro poco
Fibonacci[1] <- Fibonacci[2] <- 1; #El primer y segundo elemento son 1
for (i in 3:20) Fibonacci[i] <- Fibonacci[i - 2] - Fibonacci[i - 1]
Fibonacci
[1]    1    1    0    1   -1    2   -3    5   -8   13  -21   34  -55   89 -144  [16]  233 -377  610 -987 1597
Fibonacci[1] <- Fibonacci[2] <- 1; #El primer y segundo elemento son 1
for (i in 3:20) Fibonacci[i] <- Fibonacci[i - 2] + Fibonacci[i - 1]
Fibonacci
[1]    1    1    2    3    5    8   13   21   34   55   89  144  233  377  610  [16]   987   1597   2584   4181   6765
#Con decimales
Fibonacci[1] <- Fibonacci[2] <- 0.1; #El primer y segundo elemento son 0.1
for (i in 3:20) Fibonacci[i] <- Fibonacci[i - 2] + Fibonacci[i - 1]
Fibonacci
[1]   0.1   0.1   0.2   0.3   0.5   0.8   1.3   2.1   3.4   5.5   8.9  14.4  23.3  [14]  37.7   61.0  98.7 159.7 258.4 418.1 676.5
#Cambiando para que cada elemento es el mismo mas el último [-1] y el penúltimo
#[-2]
Fibonacci[1] <- Fibonacci[2] <- Fibonacci[3]<- 1
for (i in 4:20) Fibonacci[i] <- Fibonacci[i - 2] + Fibonacci[i - 1] + Fibonacci[i]
Fibonacci
[1]     1.0     1.0     1.0     2.3     3.8     6.9    12.0    21.0    36.4    [10]    62.9    108.2   185.5   317.0   540.2   918.2  1557.1  2635.0  4450.5  [19]   7503.6 12630.6
#Cambiando para que cada elemento el último [-1] y el penúltimo [-2] y el  #anterior [-3]
Fibonacci[1] <- Fibonacci[2] <- Fibonacci[3]<- 1
for (i in 4:20) Fibonacci[i] <- Fibonacci[i - 3]+Fibonacci[i - 2]+Fibonacci[i-1]
Fibonacci
[1]     1     1     1     3     5     9    17    31    57   105   193   355   653  [14]    1201 [15]  2209  4063  7473 13745 25281 46499