Code
library("serocalculator")
library(magrittr)
xs_data <-
serocalculator_example("example_pop_data.csv") |>
read.csv() |>
as_pop_data()
check_pop_data(xs_data, verbose = TRUE)Check the formatting of a cross-sectional antibody survey dataset.
check_pop_data(pop_data, verbose = FALSE)
pop_data
|
dataset to check |
verbose
|
whether to print an "OK" message when all checks pass |
NULL (invisibly)
library("serocalculator")
library(magrittr)
xs_data <-
serocalculator_example("example_pop_data.csv") |>
read.csv() |>
as_pop_data()
check_pop_data(xs_data, verbose = TRUE)