Ejercio2

#Estructura if, else, else if

#ejercicio 1
edad<- 35

if (edad>=65){
  print("eres adulto mayor")
} else if (edad<18){
  print('eres menor de edad')
} else {
  print("eres mayor de edad")
}

## [1] "eres mayor de edad"

#ejercicio 2
temperatura<- 14
if (temperatura>25){
  print("El clima actualmente es caliente")
} else if (temperatura>=10 & temperatura<=25){
  print("El clima actualmente es templado")
} else {
  print("El clima actualmente es frio")
}

## [1] "El clima actualmente es templado"

#Estrucutura For

#ejercicio 1
for (i in 1:5){
  print(i)
}

## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5

vec <- c("a","b","c","d","e")
length(vec)

## [1] 5

for(i in 1:length(vec)){
  print(paste("el elemento en la posicion",i,"es",vec[i]))
}

## [1] "el elemento en la posicion 1 es a"
## [1] "el elemento en la posicion 2 es b"
## [1] "el elemento en la posicion 3 es c"
## [1] "el elemento en la posicion 4 es d"
## [1] "el elemento en la posicion 5 es e"

#ejercicio 2
for (p in 1:7){
  print(p)
}

## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5
## [1] 6
## [1] 7

vec1 <- c("3","14","6","11","9","10","5")
length(vec1)

## [1] 7

vec1.1<- max(cumsum(vec1))
  print(paste("La suma total es", vec1.1))

## [1] "La suma total es 58"

#ejercicio 3
for (l in 1:4){
  print(l)
}

## [1] 1
## [1] 2
## [1] 3
## [1] 4

vec2 <- c("Juan","Maria","Alberto","Valentina")
length(vec2)

## [1] 4

for(l in 1:length(vec2)){
  print(paste("Hello,",vec2[l]))
}

## [1] "Hello, Juan"
## [1] "Hello, Maria"
## [1] "Hello, Alberto"
## [1] "Hello, Valentina"

#Estructura While

#ejercicio 3
a <- 10
while(a==a){
  print(a)
  a<-a-1
  if (a==0) break
} 

## [1] 10
## [1] 9
## [1] 8
## [1] 7
## [1] 6
## [1] 5
## [1] 4
## [1] 3
## [1] 2
## [1] 1

#ejercicio 1
b <- 1
while(b<=10){
  print(b)
  b<-b+1
  if (b>5){
    print(paste("el numero",b, "es mayor a 5"))
    }
} 

## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5
## [1] "el numero 6 es mayor a 5"
## [1] 6
## [1] "el numero 7 es mayor a 5"
## [1] 7
## [1] "el numero 8 es mayor a 5"
## [1] 8
## [1] "el numero 9 es mayor a 5"
## [1] 9
## [1] "el numero 10 es mayor a 5"
## [1] 10
## [1] "el numero 11 es mayor a 5"

#ejercicio 2
c <- 1
d <- 0
while(c<=100){
  d<-d+c
  c<-c+1
  
} 
print(paste("La suma de los numeros del 1 al 100 es:", d))

## [1] "La suma de los numeros del 1 al 100 es: 5050"

#Estructura Switch

#ejercicio 1
semana <-7

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

## [1] "Domingo"

#ejercicio 2
evaluar_numero1 <- function(x, tipo1) {
  switch(tipo1,
    "numerico" = is.numeric(x),
    "logico" = is.logical(x),
    "caracter" = is.character(x),
  )
  
}
evaluar_numero1("casa", tipo1 = "caracter")

## [1] TRUE

#ejercicio 3
mes <-4

result1 <- 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","Invalid")
print(result1)

## [1] "Abril"