data-raw/R/create_ref.nl5defSGAgewicht.R

In growthcharts/growthscreener: Finding Children with Unusual Growth Patterns

#' Create table of Dutch birth weight references
#' @export
create_ref.nl5defSGAgewicht <- function() {
  x <- data.frame(matrix(NA, 36L, 8L))
  x[, 1L] <- rep("pinkeltje", 36L)
  x[, 2L] <- c(rep("NL", 36L))
  x[, 3L] <- c(rep(c("male", "female"), 18L))
  x[, 4L] <- rep(0L, 36L)
  x[, 5L] <- rep(c(1.0885, 0.8089), 18L)
  x[, 6L] <- c(0.9620, 0.8770, 0.9850, 0.9010, 1.0420, 0.9530,
               1.1310, 1.0340, 1.2490, 1.1440, 1.3950, 1.2850,
               1.5650, 1.4520, 1.7600, 1.6410, 1.9800, 1.8510,
               2.2220, 2.0800, 2.4790, 2.3240, 2.7450, 2.5740,
               3.0100, 2.8230, 3.2680, 3.0620, 3.5130, 3.2840,
               3.7400, 3.4840, 3.9470, 3.6600, 3.9470, 3.6600)
  x[, 7L] <- c(0.2111, 0.1805, 0.2061, 0.1940, 0.2031, 0.2035,
               0.2014, 0.2086, 0.2003, 0.2089, 0.1984, 0.2051,
               0.1952, 0.1984, 0.1912, 0.1900, 0.1867, 0.1808,
               0.1818, 0.1718, 0.1762, 0.1636, 0.1702, 0.1566,
               0.1646, 0.1511, 0.1602, 0.1470, 0.1577, 0.1441,
               0.1575, 0.1425, 0.1599, 0.1418, 0.1599, 0.1418)
  x[, 8L] <- rep(25:42, each = 2L)

  dimnames(x)[[2L]] <- c("pop", "sub", "sex", "x", "L", "M", "S", "ga")
  x
}