if (FALSE) {
# runs spuriously slow on rhub
load(system.file("extdata/study_data.RData", package = "dataquieR"))
load(system.file("extdata/meta_data.RData", package = "dataquieR"))
co_vars <- c("SEX_0", "AGE_0")
min_obs_in_subgroup <- 30
min_subgroups <- 3
label_col <- LABEL
rvs <- c("DBP_0", "SBP_0")
group_vars <- prep_map_labels(rvs, meta_data = meta_data, from = label_col,
to = VAR_NAMES)
group_vars <- prep_map_labels(group_vars, meta_data = meta_data,
to = GROUP_VAR_OBSERVER)
group_vars <- prep_map_labels(group_vars, meta_data = meta_data)
acc_varcomp(
resp_vars = rvs, group_vars = group_vars, co_vars = co_vars,
min_obs_in_subgroup = min_obs_in_subgroup,
min_subgroups = min_subgroups, label_col = label_col,
study_data = study_data, meta_data = meta_data
)
}
Run the code above in your browser using DataLab