If, else if, else

1

x<-10

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

2.

t<-24

if (t<10){
  print("El clima esta frío")
} else if (t>25){
  print("El clima esta caliente")
} else {
  print("El clima esta templado")
}
## [1] "El clima esta templado"

For

1.

vec<- c("a","d","n","j")

for (i in vec) {
  print(i)
}
## [1] "a"
## [1] "d"
## [1] "n"
## [1] "j"

2.

numeros<- as.numeric(c("3","6","9","12"))
length(numeros)
## [1] 4
for (numero in numeros) {
  print(numero)
}
## [1] 3
## [1] 6
## [1] 9
## [1] 12
sum<-0

for (numero in numeros) {
  sum<-sum+numero
}

print(sum)
## [1] 30

3.

nom<-c("Luis","Paula","Kelly","Camilo")

for (i in 1:length(nom)) {
  print(paste("Hello,",nom[i]))
  
}
## [1] "Hello, Luis"
## [1] "Hello, Paula"
## [1] "Hello, Kelly"
## [1] "Hello, Camilo"

While

1.

w <- 1

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

2.

suma<-0
cien <- 1

while (cien<=100) {
 suma<-suma+cien
 cien<-cien+1
}

print(suma)
## [1] 5050

3.

n <- 8

while (n>0) {
  print(n)
 n<-n-1
}
## [1] 8
## [1] 7
## [1] 6
## [1] 5
## [1] 4
## [1] 3
## [1] 2
## [1] 1

#Switch

1.

Day<-3

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

2.

logi<-TRUE
number<-28.7
int<-as.integer(2)

letra<-class(int)
print(paste("La variable es de tipo",letra))
## [1] "La variable es de tipo integer"

3.

Month<-11

result<-switch (Month,"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] "Noviembre"