ejercicio seminario 1

#primera parte del ejercicio
a <- c("Enc1", "Enc2", "Enc3", "Enc4", "Enc5", "Enc6")
b <- c(172.2, 161.3, 155.5, 181.5, 170.7, 153.7)
c <- c("h", "m", "m", "h", "m", "m")
d <- c(2001, 1999, 2000, 2001, NA, 2002)
dades <- data.frame(a, b, c, d)

#parte 2
colnames(dades) <- c("encuestado", "altura", "género", "nacido_en")

#parte 3
dades[dades$altura > 160, ]

##   encuestado altura género nacido_en
## 1       Enc1  172.2      h      2001
## 2       Enc2  161.3      m      1999
## 4       Enc4  181.5      h      2001
## 5       Enc5  170.7      m        NA

#parte 4
Veg <- c("yes", "no", "yes", "no", "no", "no")
dades$Veg <- Veg

#parte 5
sum(is.na(dades))

## [1] 1

#parte 6

#parte 6.1
mean(dades$altura)

## [1] 165.8167

#parte 6.2
mean(subset(dades, género == "m")$altura)

## [1] 160.3