Facebook
From Flying Parakeet, 2 Months ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 30
  1. #####################################################
  2. #zadanie 4
  3. medic <- data.frame(
  4.   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),
  5.   c(181, 169, 178, 189, 178, 175, 173, 187, 175, 165, 185, 178, 162, 185))
  6. #podpunkt a
  7. names(medic) <- c('masa', 'wysokosc')
  8.  
  9. #podpunkt b
  10.  
  11. medic$BMI <- c(medic$masa/((medic$wysokosc/100)^2))
  12. head(medic, 4)
  13.  
  14. #podpunkt c
  15.   medic$masa
  16.   #lub
  17.   medic['masa']
  18.  
  19.   #2kolumny
  20.   medic[,c('masa','wysokosc')]
  21.  
  22. #podpunkt d
  23.   subset(medic, BMI > 23)