Running 'test-bmi_for_age.R' [15s]
  Running 'test-bp-by-source.R' [0s]
  Running 'test-bp_cdf.R' [1s]
  Running 'test-bp_chart.R' [1s]
  Running 'test-bp_distributions.R' [30s]
  Running 'test-bp_parameters.R' [0s]
  Running 'test-cppBP.R' [1s]
  Running 'test-cppPGSF.R' [16s]
  Running 'test-est_norm.R' [0s]
  Running 'test-gemelli1990.R' [0s]
  Running 'test-gs_chart.R' [2s]
  Running 'test-head_circumference_for_age.R' [10s]
  Running 'test-height_for_age.R' [2s]
  Running 'test-internal-data.R' [1s]
  Running 'test-length_for_age.R' [11s]
  Running 'test-lms.R' [1s]
  Running 'test-lo2013.R' [0s]
  Running 'test-nhlbi_bp_norms.R' [0s]
  Running 'test-weight_for_age.R' [13s]
  Running 'test-weight_for_height.R' [3s]
  Running 'test-weight_for_length.R' [3s]
Running the tests in 'tests/test-est_norm.R' failed.
Complete output:
  > library(pedbp)
  > 
  > ################################################################################
  > # expect an error if q and/or p have length 1
  > test <- tryCatch(est_norm(q = c(1), p = c(0.1)), error = function(e) e)
  > stopifnot(inherits(test,"simpleError"))
  > stopifnot(identical(test$message, "length(q) > 1L & length(p) > 1L is not TRUE"))
  > 
  > test <- tryCatch(est_norm(q = c(1), p = c(0.1, 0.2)), error = function(e) e)
  > stopifnot(inherits(test,"simpleError"))
  > stopifnot(identical(test$message, "length(q) > 1L & length(p) > 1L is not TRUE"))
  > 
  > test <- tryCatch(est_norm(q = c(1, 2), p = c(0.2)), error = function(e) e)
  > stopifnot(inherits(test,"simpleError"))
  > stopifnot(identical(test$message, "length(q) > 1L & length(p) > 1L is not TRUE"))
  > 
  > test <- tryCatch(est_norm(q = c(1, 2), p = numeric(1)), error = function(e) e)
  > stopifnot(inherits(test,"simpleError"))
  > stopifnot(identical(test$message, "length(q) > 1L & length(p) > 1L is not TRUE"))
  > 
  > test <- tryCatch(est_norm(q = c(1, 2)), error = function(e) e)
  > stopifnot(inherits(test,"simpleError"))
  Error: inherits(test, "simpleError") is not TRUE
  Execution halted