advice_hgt: Referral advice for body height

In growthcharts/growthscreener: Finding Children with Unusual Growth Patterns

Referral advice for body height

Description

This function traverses the decision tree of the "JGZ-Richtlijn Lengtegroei 2019".

Usage

calculate_advice_hgt(
  sex = NA_character_,
  bw = NA,
  bl = NA,
  ga = NA,
  etn = "NL",
  hgtf = NA,
  hgtm = NA,
  dob = NA_character_,
  dom = NA_character_,
  y = NA,
  y1 = NA,
  y0 = NA,
  dom1 = NA_integer_,
  dom0 = NA_integer_,
  test_gain = TRUE,
  verbose = FALSE
)

Arguments

sex	Character, either "male" or "female"
bw	Birth weight (grammes)
bl	Birth length (cm)
ga	Gestational age, completed weeks (Integer or character)
etn	Etnicity, one of "NL" (dutch), "TU" (turkish), "MA" (moroccan) or "HS" (hindustani). Currently not functional, always uses "NL". Only used for target height.
hgtf	Height of father (cm)
hgtm	Height of mother (cm)
dob	Date of birth (yyyymmdd). Required if dom is supplied as a date string.
dom	Vector with dates of measurements. Either supplied as age in decimal years or a date in the format yyyymmdd.
y	Vector with height measurements (cm)
y1	Legacy parameter.
y0	Legacy parameter.
dom1	Legacy parameter.
dom0	Legacy parameter.
test_gain	Logical. Should the increase or decrease in Z-scores be tested? The default is TRUE.
verbose	Set to TRUE to obtain warnings on reference finding.

Details

The decision tree assesses both single and paired measurements. The observation corresponding to the oldest age is taken is the current measurement.

Value

calculate_advice_hgt returns an integer, the msgcode

Author(s)

Paula van Dommelen, Stef van Buuren, 2021

Examples

msg(calculate_advice_hgt())
msgcode <- calculate_advice_hgt(sex = "male", dob = "20200101",
                                dom = c("01022020", "20200601"),
                                y = c(54, 68),
                                ga = 35,
                                test_gain = FALSE)
msg(msgcode)

growthcharts/growthscreener documentation built on Oct. 25, 2024, 4:07 p.m.