# NOT RUN {
test0 <- indivmuaczs(age = 70, sex = "Female", muac = 15.8,
age_range = "60-228")
# test0
test1 <- indivmuaczs(age = c(4, 40, 60), sex = "Male",
muac = c(17.2, 17.2, 19.8), age_range = "3-60")
# test1
test2 <- indivmuaczs(age = c(4, 40, 60), sex = 2,
muac = c(14.9, 17.7, 19))
# test2
res2 <- indivmuaczs(age = 70, sex = c(1, 1, 2, 2, 2, 1),
muac = c(23.1, 15.2, 18.4, 13.9, 19.5, 14.6),
age_range = "60-228")
# res2
# }
Run the code above in your browser using DataLab