Objetivo: Realizar operaciones de recorrdio de vectores por medio de ciclos en R y realizar algunas operaciones haciendo uso de condicionales
Descripción.A través del uso de mecanismos de flujos de control, mediante ciclos y condiocionales en R, ejecutar operaciones.
Asignacion de valores a variables
vinicio<-20 #Se asigna el valor de 20 a la variable vinicio
vfin<-40 #Se le asigna el valor de 40 a la variable vfin
Ciclo For
for (i in vinicio:vfin) {
print(i) #Presenta el Valor de i
}
## [1] 20
## [1] 21
## [1] 22
## [1] 23
## [1] 24
## [1] 25
## [1] 26
## [1] 27
## [1] 28
## [1] 29
## [1] 30
## [1] 31
## [1] 32
## [1] 33
## [1] 34
## [1] 35
## [1] 36
## [1] 37
## [1] 38
## [1] 39
## [1] 40
Ciclo While
i<-vinicio # Se le asigna a la variable i el valor de la variable vinicio
while(i<=vfin) #El ciclo pregunta si i es menor o igual al valor de la variable vfin
{
print(i) #Presenta el Valor de i
i<-i+1 # Se incrementa i
}
## [1] 20
## [1] 21
## [1] 22
## [1] 23
## [1] 24
## [1] 25
## [1] 26
## [1] 27
## [1] 28
## [1] 29
## [1] 30
## [1] 31
## [1] 32
## [1] 33
## [1] 34
## [1] 35
## [1] 36
## [1] 37
## [1] 38
## [1] 39
## [1] 40
Repeat
i<-vinicio # Se le asigna a la variable i el valor de la variable vinicio
repeat
{
print(i) #Presenta el Valor de i
i<-i+1 # Se incrementa i
if (i>vfin) #Pregunta si el valor de i es mayor que el valor de la variable vfin y si es correcta la expresion sale del ciclo
break
}
## [1] 20
## [1] 21
## [1] 22
## [1] 23
## [1] 24
## [1] 25
## [1] 26
## [1] 27
## [1] 28
## [1] 29
## [1] 30
## [1] 31
## [1] 32
## [1] 33
## [1] 34
## [1] 35
## [1] 36
## [1] 37
## [1] 38
## [1] 39
## [1] 40
Secuencia de 20 números de 5 en 5 comenzando en 10
vres<-seq(10,105,5) #Se asigna a la variable vres los valores de la secuencia, genera 20 numeros inicando en 10 y se incrementa de 5 en 5
print(length(vres)) #Presenta la longitud de la secuencia para comprobar que sean los 20 numeros
## [1] 20
print(vres) #Presenta los valores de la secuencia asignados a la variable vres
## [1] 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90
## [18] 95 100 105
Presentar valores de secuencia con ciclo for
for (i in vres) {
print(i) #Presenta el Valor de i
}
## [1] 10
## [1] 15
## [1] 20
## [1] 25
## [1] 30
## [1] 35
## [1] 40
## [1] 45
## [1] 50
## [1] 55
## [1] 60
## [1] 65
## [1] 70
## [1] 75
## [1] 80
## [1] 85
## [1] 90
## [1] 95
## [1] 100
## [1] 105
Presentar valores de secuencia con ciclo while
i<-1 #Se asigna 1 a la variable i
while(i<=length(vres)) #El ciclo pregunta si i es menor o igual a la longitud de la variable vres donde fueron asignados los valores de la secuencia
{
print(vres[i]) #Presenta los valores de vres en la posición i
i<-i+1 #Incrementa la variable i
}
## [1] 10
## [1] 15
## [1] 20
## [1] 25
## [1] 30
## [1] 35
## [1] 40
## [1] 45
## [1] 50
## [1] 55
## [1] 60
## [1] 65
## [1] 70
## [1] 75
## [1] 80
## [1] 85
## [1] 90
## [1] 95
## [1] 100
## [1] 105
Presentar valores de secuencia con ciclo repeat
i<-1 #Se asigna 1 a la variable i
repeat
{
print(vres[i]) #Presenta los valores de vres en la posición i
i<-i+1 #Incrementa la variable i
if (i>length(vres)) #pregunta si i es mayor a la longitud de la variable vres donde fueron asignados los valores de la secuencia, si es asi termina el ciclo
break() #Termina el ciclo
}
## [1] 10
## [1] 15
## [1] 20
## [1] 25
## [1] 30
## [1] 35
## [1] 40
## [1] 45
## [1] 50
## [1] 55
## [1] 60
## [1] 65
## [1] 70
## [1] 75
## [1] 80
## [1] 85
## [1] 90
## [1] 95
## [1] 100
## [1] 105
Numeros aleatorios con una semilla de 50
set.seed(50)#Semilla para que todos los equipos obtengan los mismos numeros aleatorios
vres<-sample(80:100,30,replace=TRUE) #Genera 30 números aleatorios de entre 80 y 100 con valores repetidos y los asigna a la variable vres
print(vres) #Presenta los valores aleatorios asignados a la variable vres
## [1] 94 89 84 96 90 80 94 93 80 82 88 85 93 81 85 94 97 87 81 83 92 84 94
## [24] 97 86 93 92 85 86 87
Presentar numeros aleatorios con el ciclo for
for (i in vres) {
print(i)#Presenta los valores aleatorios
}
## [1] 94
## [1] 89
## [1] 84
## [1] 96
## [1] 90
## [1] 80
## [1] 94
## [1] 93
## [1] 80
## [1] 82
## [1] 88
## [1] 85
## [1] 93
## [1] 81
## [1] 85
## [1] 94
## [1] 97
## [1] 87
## [1] 81
## [1] 83
## [1] 92
## [1] 84
## [1] 94
## [1] 97
## [1] 86
## [1] 93
## [1] 92
## [1] 85
## [1] 86
## [1] 87
Presentar numeros aleatorios con el ciclo while
i<-1 #Se asigna 1 a la variable i
while(i<=length(vres)) #El ciclo pregunta si i es menor o igual a la longitud de la variable vres donde fueron asignados los valores aleatorios
{
print(vres[i]) #Presenta los valores de vres en la posición i
i<-i+1 #Incrementa la variable i
}
## [1] 94
## [1] 89
## [1] 84
## [1] 96
## [1] 90
## [1] 80
## [1] 94
## [1] 93
## [1] 80
## [1] 82
## [1] 88
## [1] 85
## [1] 93
## [1] 81
## [1] 85
## [1] 94
## [1] 97
## [1] 87
## [1] 81
## [1] 83
## [1] 92
## [1] 84
## [1] 94
## [1] 97
## [1] 86
## [1] 93
## [1] 92
## [1] 85
## [1] 86
## [1] 87
Presentar numeros aleatorios con el ciclo repeat
i<-1 #Se asigna 1 a la variable i
repeat
{
print(vres[i]) #Presenta los valores aleatorios de vres en la posición i
i<-i+1 #Incrementa la variable i
if (i>length(vres)) #pregunta si i es mayor a la longitud de la variable vres donde fueron asignados los valores aleatorios, si es asi termina el ciclo
break() #Termina el ciclo
}
## [1] 94
## [1] 89
## [1] 84
## [1] 96
## [1] 90
## [1] 80
## [1] 94
## [1] 93
## [1] 80
## [1] 82
## [1] 88
## [1] 85
## [1] 93
## [1] 81
## [1] 85
## [1] 94
## [1] 97
## [1] 87
## [1] 81
## [1] 83
## [1] 92
## [1] 84
## [1] 94
## [1] 97
## [1] 86
## [1] 93
## [1] 92
## [1] 85
## [1] 86
## [1] 87
Romper ciclo for cuando cuando el numero aleatorio recorrido este entre 85 y 95
for (i in vres) {
print(i)#Presenta los valores aleatorios
if(i>=85&i<=95) #pregunta si el numero aleatorio se encuentra en el rango de 85 y 95 si es correcto termina el ciclo
break #termina el ciclo
}
## [1] 94
Romper ciclo while cuando cuando el numero aleatorio recorrido este entre 85 y 95
i<-1 #Se asigna 1 a la variable i
while(i<=length(vres)) #El ciclo pregunta si i es menor o igual a la longitud de la variable vres donde fueron asignados los valores aleatorios
{
print(vres[i]) #Presenta los valores de vres en la posición i
if (vres[i]>=85&vres[i]<=95) #pregunta si el numero aleatorio se encuentra en el rango de 85 y 95 si es correcto termina el ciclo
break() #termina el ciclo
i<-i+1 #Incrementa la variable i
}
## [1] 94
Romper ciclo repeat cuando cuando el numero aleatorio recorrido este entre 85 y 95
i<-1 #Se asigna 1 a la variable i
repeat
{
print(vres[i]) #Presenta los valores aleatorios de vres en la posición i
if (vres[i]>=85&vres[i]<=95) #pregunta si el numero aleatorio se encuentra en el rango de 85 y 95 si es correcto termina el ciclo
break() #Termina el ciclo
i<-i+1 #Incrementa la variable i
}
## [1] 94