Nombre: Manejo de ciclos y condicionales en R

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

A traves del uso de mecanismos de flujos de control, mediante ciclos y condicionales en R, ejecutar operaciones.

Recorrer y presentar un ciclo desde 20 hasta 40 mostrando el valor de la variables del ciclo ###mediate uso de for, while y repeat

i <- 19
while (TRUE) {
  if (i == 40) 
    break
  else {
    i <- i+1
    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

Genera una secuencia de 20 numeros de 5 en 5 comenzando en 10 y recorrer e imprimir la variable por medio de ciclo for, while y repeat

seq (5,20,5)
## [1]  5 10 15 20
for (i in seq (5,100,5)){
  print (i)
  
}
## [1] 5
## [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

Establecer una semilla una semilla de set.seed(50) para generar numeros aleatorios

set.seed(50)

misnumeros <- sample (100:500, 100, replace= TRUE)

misnumeros
##   [1] 384 275 180 407 305 117 380 359 116 143 256 208 356 131 211 371 434
##  [18] 246 129 167 347 177 384 437 223 360 331 203 230 247 243 263 275 348
##  [35] 189 351 148 381 249 283 245 435 211 137 122 380 482 283 386 422 499
##  [52] 406 356 220 243 270 386 310 305 206 332 362 179 334 151 115 390 124
##  [69] 154 478 303 499 365 129 487 159 363 483 361 483 317 106 236 288 318
##  [86] 107 100 372 315 358 377 376 432 404 119 218 127 423 225 368

Generar 30 numeros aleatorios de entre 80 y 100 con valores repetidos y recorrer por medio de ###ciclos for, while y repeat

misnumeros <- sample (80:100, 50, replace= TRUE)

misnumeros
##  [1]  90 100  93  80  80  98  80  92  97  87  98  81  84  82  81  86  81
## [18]  96  89 100  93  80  91  91  90  89  85  80  81  85  87  83  96  89
## [35]  82  85  91  86  83  90  91  83  85  83  81  88  94  93  91  88

Mediante una condicion if salir y romper (break) el ciclo para cuando el valor generado ###aleatoriamente este entre 85 y 95

misnumeros <- sample (80:100, 50, replace= TRUE)



for (i in misnumeros){
  print (i)
  if ( i>=85 & i <= 95)
    break
}
## [1] 84
## [1] 84
## [1] 88
print ("salimos del ciclo")
## [1] "salimos del ciclo"
print ("estos son los numeros aleatorios")
## [1] "estos son los numeros aleatorios"