Ejercicio 1

Crea un programa que reciba la edad de una persona y determine si es mayor de edad o no. Si la persona tiene 18 años o más, el programa debe imprimir “Eres mayor de edad”, de lo contrario debe imprimir “Eres menor de edad”.

edad <- 23

if (edad  >= 18){
  print("Ya puedes tomar guaro")
  
}else{
  
  print("No puedes, espera a los 18 años")
}

## [1] "Ya puedes tomar guaro"

Ejercicio 2

Ejercicio 2 Desarrolla un script que calcule el índice de masa corporal (IMC) a partir del peso en kilogramos y la altura en metros de una persona. El programa debe imprimir si la persona está bajo peso, en peso normal, con sobrepeso o con obesidad, según los rangos de IMC.

Si su IMC es menos de 18.5, se encuentra dentro del rango de peso insuficiente. Si su IMC es entre 18.5 y 24.9, se encuentra dentro del rango de peso normal o saludable. Haga el script y haga la fórmula en latex

peso <- 50
altura <- 1.76
IMC <- peso/altura^2

if (IMC <= 18.5) {
  print("Peso insuficiente")
}else if(IMC >= 18.6 & IMC <= 24.9){
  print("peso normal o saludable")
}else{
  print("Sobrepeso")
}

## [1] "Peso insuficiente"

Ejercicio 3

Implementa un script que pida al usuario un día de la semana y determine si es un día laboral o fin de semana. Los días laborales son de lunes a viernes, mientras que sábado y domingo son considerados fin de semana.

dia <- "Domingo"
laboral <- c("Lunes", "Martes", "Miércoles", "Jueves", "Viernes")

if (dia %in% laboral){
  print("Es un día laboral")
}else{
  print("Es fin de semana!")
}

## [1] "Es fin de semana!"

Otra forma

if (dia == "Sábado" | dia == "Domingo"){
  print("Es fin de semana")
}else{
  print("Es día laboral")
}

## [1] "Es fin de semana"

Otra forma

if (dia == "Lunes" | dia == "Martes" | dia == "Miércoles" | dia == "Jueves" | dia == "Viernes"){
  print("Día laboral")
}else{
  print("Fin de semana")
}

## [1] "Fin de semana"

Ejercicio 4

Desarrolla un programa que genere números aleatorios de una distribución normal estándar (media = 0, desviación = 1) hasta que el número generado sea por encima de 2 desviaciones estándar. El programa debe contar y mostrar cuántos intentos se necesitaron para obtener mayor que 2.

contador <- 0
numero <- 0

while (numero < 2){
  numero <- rnorm(n =1, mean = 0, sd = 1)
  contador <- contador + 1
  
}

print(contador)

## [1] 54

Ejercicio 5

Implementa un programa que inicie con un contador en 0 y sume 3 en cada iteración del ciclo while. El ciclo debe detenerse cuando el contador alcance o supere el número 30. Al final, imprime el valor final del contador.

contador <- 0

while (contador < 30){
  contador <- contador + 3
}

print("Se ha terminado el ciclo While")

## [1] "Se ha terminado el ciclo While"

print(contador)

## [1] 30