# NOT RUN {
## Example 1
## creating a hypothetical dataset
dat1 <- data.frame(age = c(61, 73, 181, 217), sex = 1,
muac = c(13.0, 15.7, 34.1, 43.9),
bmi = c(12.1, 14.1, 27.1, 35.4))
ans1 <- muacz.bmiz(Datafm = dat1, age_range.muac = "60-228",
age_range.bmi = "61-228")
# ans1
## Example 1
## creating a hypothetical dataset
dat2 <- data.frame(age = c(25, 36, 48, 60),
sex = 2,
muac = c(15, 17, 21.3, 14),
bmi = c(15.7, 16.8, 20.6, 12.7))
ans2 <- muacz.bmiz(Datafm = dat2, age_range.muac = "3-60",
age_range.bmi = "24-60")
# ans2
# }
Run the code above in your browser using DataLab