##if else else if

##ejercicio de edad
edad<- 66

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

##ejercicio temperatura

temperatura<- 30
if (temperatura<10){
 print("es frio")
}else if(temperatura>25){
 print("es caliente")
}else{
 print("la temperatura es templada")
}
## [1] "es caliente"

estructuras de control FOR

#imprimir caratecteres de u vector
vec <- c("a","b","c")

for (val in vec){
 print(val)
}
## [1] "a"
## [1] "b"
## [1] "c"
#suma de todos los numeros de un vector

vecnum <- c(1,2,3,4)
sumador<- 0
for (val1 in 1:length(vecnum)){
 sumador<- sumador+vecnum[val1]
 print(sumador)
}
## [1] 1
## [1] 3
## [1] 6
## [1] 10

saludar cada persona en un vector de nombres

nombres <- c("angela","maria")

for (val2 in 1:length(nombres)){
   print(paste("hello",nombres[val2]))
}
## [1] "hello angela"
## [1] "hello maria"

estructuras de control while

##contador del 1  al 10
i<- 1

while(i<11){
 if( i>5){
   print(paste(i,"mayor a 5"))
 }else{
   print(i)
 }
 i<- i+1
}
## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5
## [1] "6 mayor a 5"
## [1] "7 mayor a 5"
## [1] "8 mayor a 5"
## [1] "9 mayor a 5"
## [1] "10 mayor a 5"
##suma de numeros del 1 al 100
j<- 1
numsumados<- 0
while (j <= 100) {
  
  numsumados<- numsumados + j
  j <- j + 1
}
print(numsumados)
## [1] 5050
##imprimir el valor de n

nn<- 5

while(nn>0){
 print(nn)
 nn<- nn-1
}
## [1] 5
## [1] 4
## [1] 3
## [1] 2
## [1] 1

estructura de control switch

##dias de la semana

dia <- 1

dia_Semana <- switch (dia,
                     "1" = "Lunes",
                     "2" = "Martes",
                     "3" = "Miércoles",
                     "4" = "Jueves",
                     "5" = "Viernes",
                     "6" = "Sábado",
                     "7" = "Domingo",
                     "Día no válido"
)
print(dia_Semana)
## [1] "Lunes"
## tipo de dato

dato <- TRUE

tipoDeDato <- class(dato)

respuesta <- switch (tipoDeDato,
                    numeric = "el dato es numerico",
                    logical = "el dato es logico",
                    character = "el dato es caracter"
  

)
print(respuesta)
## [1] "el dato es logico"
## meses del ano
mes <- 1

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