# NOT RUN {
g1 <- plotmuac(age = 48, sex = 2, muac = 16.2, line.color = "orange")
g2 <- plotmuac(age = 48, sex = 2, muac = 16.2, graphtype = "percentiles",
line.color = "orange")
g3 <- plotmuac(age = c(24, 36, 48, 59), sex = 1, muac = c(13, 14.5, 16.1, 21.7))
g4 <- plotmuac(age = c(24, 36, 48, 59), sex = 1, muac = c(13, 14.5, 16.1, 21.7),
graphtype = "percentiles")
g5 <- plotmuac(age = c(61, 73, 181, 217), sex = 1, muac = c(13, 15.7, 34.1, 43.9),
age_range = "60-228")
g6 <- plotmuac(age = c(61, 73, 181, 217), sex = 1, muac = c(13, 15.7, 34.1, 43.9),
age_range = "60-228", graphtype = "percentiles")
# }
Run the code above in your browser using DataLab