#Ejercicio #1
Edades <- c(26,19,18,21)
Edades
## [1] 26 19 18 21
Nombres<- c("Nicolas","Sofia","Andres","Vanessa")
Nombres
## [1] "Nicolas" "Sofia" "Andres" "Vanessa"
data_omar<- data.frame(Nombres,Edades)
data_omar
## Nombres Edades
## 1 Nicolas 26
## 2 Sofia 19
## 3 Andres 18
## 4 Vanessa 21
Promedio_edades <- (26+18+19+21)/4
Promedio_edades
## [1] 21
Promedio_edades2<- mean(Edades)
Promedio_edades2
## [1] 21