Bienvenido a Platzi

#Vectores en R 

#Tiempo de aprendizaje 

tiempo_platzi  <- c(25,5,10,15,10)

tiempo_lectura  <- c(30,10,5,10,15)

tiempo_aprendizaje <- tiempo_platzi + tiempo_lectura 

tiempo_aprendizaje

#Tiempo adicional

dias_aprendizaje <- c("Lunes","Martes","Miercoles","Jueves","Viernes")

dias_aprendizaje

dias_mas_20min <- c(TRUE,FALSE,FALSE,TRUE,TRUE)

dias_mas_20min

#Tiempo total

total_tiempo_platzi <- sum(tiempo_platzi)

total_tiempo_platzi

total_tiempo_lectura <- sum(tiempo_lectura)

total_tiempo_lectura

total_tiempo_adicional <- total_tiempo_platzi + total_tiempo_lectura

total_tiempo_adicional