Primera pregunta if. eslse if, else

x<- 65 if(x< 18){ mesaje <- (“la persona es menor de edad”) } else if(x>=18 & x<65){ mesaje <-(“la persona es mayor de edad”) } else(x>=65){ mesaje<-(“la perosona es adulto mayo”) }

x<-23
if (x<18){
   print("La persona es menor de edad")
 } else if (x>=18 & x<65){
   print("La persona es mayor de edad")
 }else {
  print("La persona es adulto mayor")
 }
## [1] "La persona es mayor de edad"

Segunda Pregunta if. eslse if, else

z<- 10°C if(z< 10°C){ mesaje <- (“Temperatura fria”) } else if(z>=10°c & z<25°c){ mesaje <-(“Temperatura es templada”) } else(z>25°c){ mesaje<-(“Temperatura es caliente”) }

z<- 30
if (z<10){
   print("Temperatura fria")
 } else if (z>=10 & z<25){
   print("Temperatura es templada")
 }else {
  print("Temperatura es caliente")
 }
## [1] "Temperatura es caliente"

Priemra pregunta for

vector_1 <-(“j”, “u”, “a”, “n”) for(letra in vector_1){ print(letra) }

vector_1 <- c("j", "u", "a","n")
for(letra in vector_1){
print(letra)
}
## [1] "j"
## [1] "u"
## [1] "a"
## [1] "n"

Segunda pregunta de for

vector_2 <- c(23,1,2) suma <- 0 for(numero in numero){ suma <- suma + numero print(“La suma de los numeros es”, suma) }

vector_2 <- c(23, 1, 2)
suma <- 0
for (numero in vector_2){
suma <- suma + numero
print(paste("La suma de los numeros es", suma))
}
## [1] "La suma de los numeros es 23"
## [1] "La suma de los numeros es 24"
## [1] "La suma de los numeros es 26"

Tercera pregunta de for

vector_3 <-c(“Maria Alejandra”, “Juan Pablo”) for(vector_3 in vector_3){ print(paste(“Hello”, vector_3)) }

vector_3 <-c("Maria Alejandra", "Juan Pablo")
for(vector_3 in vector_3){
print(paste("Hello", vector_3))
}
## [1] "Hello Maria Alejandra"
## [1] "Hello Juan Pablo"

Primera pregunta de while

i<-1 while (i<=10) { print(i) i<-i+1 if(i>5) print(paste(“El numero es mayor a 5”)) }

i<-1
while (i<=10) {
  print(i)
  i<-i+1
  if(i>5)
  print(paste("El numero es mayor a 5"))
}
## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5
## [1] "El numero es mayor a 5"
## [1] 6
## [1] "El numero es mayor a 5"
## [1] 7
## [1] "El numero es mayor a 5"
## [1] 8
## [1] "El numero es mayor a 5"
## [1] 9
## [1] "El numero es mayor a 5"
## [1] 10
## [1] "El numero es mayor a 5"

Segunda pregunta de while

suma <-0 i<-1 while (i<=100) { suma <- suma+i i <- i+1 } print(paste(“La suma del 1 al 100 es”, suma))

suma <-0
i<-1
while (i<=100) {
  suma <- suma+i
  i <- i+1
}
  print(paste("La suma del 1 al 100 es", suma))
## [1] "La suma del 1 al 100 es 5050"

Tercera pregunta de while

n <-45 while(n>0){ n<- n - 1 print(n) }

n <-45
while(n>0){
n<- n - 1
print(n)
}
## [1] 44
## [1] 43
## [1] 42
## [1] 41
## [1] 40
## [1] 39
## [1] 38
## [1] 37
## [1] 36
## [1] 35
## [1] 34
## [1] 33
## [1] 32
## [1] 31
## [1] 30
## [1] 29
## [1] 28
## [1] 27
## [1] 26
## [1] 25
## [1] 24
## [1] 23
## [1] 22
## [1] 21
## [1] 20
## [1] 19
## [1] 18
## [1] 17
## [1] 16
## [1] 15
## [1] 14
## [1] 13
## [1] 12
## [1] 11
## [1] 10
## [1] 9
## [1] 8
## [1] 7
## [1] 6
## [1] 5
## [1] 4
## [1] 3
## [1] 2
## [1] 1
## [1] 0

Primera pregunta de Switch

value <-3 result <-switch(value,“1”=“Lunes”, “2”=“Martes”,“3”=“Miercoles”,“4”=“Jueves”,“5”=“Viernes”,“6”=“Sabado”,“7”=“Domingo”“invalid”) print(result)

value <-7
result <-switch(value,"1"="Lunes", "2"="Martes","3"="Miercoles","4"="Jueves","5"="Viernes","6"="Sabado","7"="Domingo")
print(result)
## [1] "Domingo"

Tercera Pregunta de switch

value <-4
result <-switch(value,"1"="Enero", "2"="Febrero","3"="Marzo","4"="Abril","5"="Mayo","6"="Junio","7"="Julio","8"="Agosto","9"="Septiembre","10"="Octubre","11"="Noviembre","12"="Diciembre")
print(result)
## [1] "Abril"

Segunda pregunta de switch

mostrar_tipo_variable <- function(var) {
  tipo <- typeof(var)
  switch(tipo,
         "character" = print("La variable es de tipo character."),
         "double" = print("La variable es de tipo numeric."),
         "logical" = print("La variable es de tipo logical."),
         print("No se se determino ninguna variable ")
  )
}
A <- "Hola"
C <- TRUE
X <- 4

mostrar_tipo_variable(X)
## [1] "La variable es de tipo numeric."