Práctica 6-Manejo de ciclos en y condicionales en R

Objetivo:Realizar operaciones de recorrido de vectores por medio de ciclos en R y realizar algunas operaciones haciendo uso de condicionales en R

Ciclo de 20 hasta 40 mostrando los valores

#Ciclo FOR
for (i in 20:40) {
  print (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<-20
while (i<=40) {
      print(i)
      i=i+1
  }
## [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 Repeat
i<-20
repeat{
  if (i<=40){
      print(i)
      i=i+1
  }
  else
    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

#Ciclo FOR
misecuencia<-seq(10,105,5)
for (i in misecuencia) {
  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
###Ciclo WHILE
i<-1
misecuencia<-seq(10,105,5)

while(i<=length(misecuencia)){
  print (misecuencia[i])
  i<-i+1
  
}
## [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
#Ciclo REPEAT
i<-1
repeat{
  if(i<=length(misecuencia))
  {
    print(misecuencia[i])
    i<-i+1
  }
  else
    break
}
## [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) y generar 30 números aleatorios de entre 80 y 100 con valores repetidos y recorrer por medio de ciclos:

set.seed(50)
num_aleatorios<-sample(80:100,30,replace=TRUE)

num_aleatorios
##  [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
#Ciclo FOR
for (i in num_aleatorios){
 print(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
#Ciclo WHILE
i<-1
while(i<=length(num_aleatorios)){
  print(num_aleatorios[i])
  i<-i+1
}
## [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
#Ciclo REPEAT
i<-1
repeat{
  if(i<=length(num_aleatorios)){
    print(num_aleatorios[i])
    i<-i+1
  }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

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

#Ciclo FOR
for (i in num_aleatorios){
  print(i)
  if (i>=85 & i<=95)
  break
}
## [1] 94
#Ciclo WHILE
i<-1
while(i<=length(num_aleatorios)){
  print(num_aleatorios[i])
  if (num_aleatorios[i]>=85 & num_aleatorios[i]<=95)
  break
  else
  i<-i+1
}
## [1] 94
#Ciclo REPEAT
i<-1
repeat{
    print(num_aleatorios[i])
    if (num_aleatorios[i]>=85 & num_aleatorios[i]<=95)
        break
    else
      i<-i+1
}
## [1] 94