#####################################################
#zadanie 4
medic <- data.frame(
  c(82.5, 65.1, 90.5, 80.9, 74, 74.4, 73.5, 75.6, 70.1, 61.8, 80.6, 82.2, 54.1, 60),
  c(181, 169, 178, 189, 178, 175, 173, 187, 175, 165, 185, 178, 162, 185))
#podpunkt a
names(medic) <- c('masa', 'wysokosc')

#podpunkt b

medic$BMI <- c(medic$masa/((medic$wysokosc/100)^2))
head(medic, 4)

#podpunkt c
  medic$masa
  #lub
  medic['masa']
  
  #2kolumny
  medic[,c('masa','wysokosc')]

#podpunkt d
  subset(medic, BMI > 23)