Descripcion Se realizaran operaciones en los cuales se incluiran los ciclos for, while y repeat, tambien se conocera la sintaxis de dichos ciclos. Conoceremos como generar numeros aleatorios y como romper un ciclo.
## Recorrer y presentar un ciclo desde 20 hasta 40 mostrando el valor de la variables del ciclo mediate uso de for, while y repeat
for (i in 20:40) {
print (i)
ver<-TRUE
}
## [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
##Genera una secuencia de 20 números de 5 en 5 comenzando en 10 y recorrer e imprimir la variable por medio de ciclo for, while y repeat
for(i in seq(10,105,by=5)){
print(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
##Establecer una semilla de set.seed(50) para generar números aleatorios
set.seed(50)
##Generar 30 números aleatorios de entre 80 y 100 con valores repetidos y recorrer por medio de ciclos for, while y repeat
x<- sample(80:100,30,replace= TRUE)
x
## [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
for(i in x){
if(i>=80 & i<=100){
print(i)
} else{
break
}
}
## [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
print ("salimos del ciclo")
## [1] "salimos del ciclo"
print("estos son los aleatorios")
## [1] "estos son los aleatorios"
##La misma opción anterior pero mediante una condición if salir y romper (break) el ciclo para cuando el valor generado aleatoriamente esté entre 85 y 95
i <- 1
while (TRUE) {
print(x[i])
if (x[i]>=85 & x[i]<=95){
break
}
i<-i+1
}
## [1] 94