# NOT RUN {
g1 <- plotbmi(age = 6, sex = 2, bmi = 18.5) # plots Z-scores
g2 <- plotbmi(age = 6, sex = 2, bmi = 18.5, graphtype = "percentiles")
g3 <- plotbmi(age = c(25, 36, 48, 60), sex = 2, bmi = c(15.7, 16.8, 20.6, 12.7),
age_range = "24-60")
g4 <- plotbmi(age = c(61, 73, 181, 217), sex = 1, bmi = c(12.1, 14.1, 27.1, 35.4),
age_range = "61-228", graphtype = "percentiles")
# }
Run the code above in your browser using DataLab