##TAREA 1##
#1.- Creación de vectores#
a= c(100.91,101.11,101.46,101.61,101.73,101.73,101.77,102.04,102.05,101.58)
b= c("traductor", "tiempo", "marca", "youtube", "el tiempo", "facebook", "as", "amazon", "hotmail", "gmail")
c= c(TRUE,FALSE,FALSE,FALSE,TRUE,TRUE,FALSE,TRUE,TRUE,FALSE)
WR800m= a
TOPrsch= b
Exam= c
#2.- Creación de vectores con información de la semana
Días = c("lunes","martes", "miércoles", "jueves", "viernes", "sábado", "domingo")
Sueño = c(485,471,311,279, 526, 462, 512)
Comidas = c(3,4,4,5,5,3,4)
Ejercicio = c("SÍ", "NO", "SÍ", "NO", "NO", "NO", "SÍ")
Ejercicio = c(TRUE,FALSE,TRUE,FALSE,FALSE,FALSE,TRUE) ###Alternativa###
Trabajo = c("trabajo", "trabajo", "trabajo", "trabajo", "trabajo", "descanso", "descanso")
#3.- Creación de dataframe
Semana = data.frame(Días, Sueño, Comidas, Ejercicio, Trabajo)
##Resultado
WR800m
## [1] 100.91 101.11 101.46 101.61 101.73 101.73 101.77 102.04 102.05 101.58
TOPrsch
## [1] "traductor" "tiempo" "marca" "youtube" "el tiempo" "facebook"
## [7] "as" "amazon" "hotmail" "gmail"
Exam
## [1] TRUE FALSE FALSE FALSE TRUE TRUE FALSE TRUE TRUE FALSE
Días
## [1] "lunes" "martes" "miércoles" "jueves" "viernes" "sábado"
## [7] "domingo"
Sueño
## [1] 485 471 311 279 526 462 512
Comidas
## [1] 3 4 4 5 5 3 4
Ejercicio
## [1] TRUE FALSE TRUE FALSE FALSE FALSE TRUE
Trabajo
## [1] "trabajo" "trabajo" "trabajo" "trabajo" "trabajo" "descanso" "descanso"
Semana
## Días Sueño Comidas Ejercicio Trabajo
## 1 lunes 485 3 TRUE trabajo
## 2 martes 471 4 FALSE trabajo
## 3 miércoles 311 4 TRUE trabajo
## 4 jueves 279 5 FALSE trabajo
## 5 viernes 526 5 FALSE trabajo
## 6 sábado 462 3 FALSE descanso
## 7 domingo 512 4 TRUE descanso