用R计算Z得分（Anthor包）

此功能可计算八个人体测量指标的z得分：年龄别体重，年龄别身高/身长，身高/身长别体重，年龄别体重指数（BMI），年龄别头围，年龄别臂围，年龄别肱三头肌皮脂厚度，年龄别肩胛下皮脂厚度（根据WHO儿童生长标准）。

install.packages("anthro")
remotes::install_github("dirkschumacher/anthro")
library(anthro)

anthro_zscores(
  sex = c(1, 2, 1, 1),
  age = c(1001, 1000, 1010, 1000),
  weight = c(18, 15, 10, 15),
  lenhei = c(120, 80, 100, 100)
)


#计算指定数据集的zscore
your_data_set <- read.csv("my_survey.csv")
with(
  your_data_set,
  anthro_zscores(
    sex = sex, age = age_in_days,
    weight = weight, lenhei = lenhei
  )
)

#返回vector
anthro_prevalence(
  sex = c(1, 2, 2, 1),
  age = c(1001, 1000, 1010, 1000),
  weight = c(18, 15, 10, 15),
  lenhei = c(100, 80, 100, 100)
)[, 1:5]