load(system.file("extdata", "study_data.RData", package = "dataquieR"))
load(system.file("extdata", "meta_data.RData", package = "dataquieR"))
# make things a bit more complicated for the function, giving datetimes
# as numeric
study_data[,
vapply(study_data, inherits, "POSIXct", FUN.VALUE = logical(1))] <-
lapply(study_data[, vapply(study_data, inherits, "POSIXct",
FUN.VALUE = logical(1))], as.numeric)
MyValueLimits <- con_limit_deviations(
resp_vars = NULL,
label_col = "LABEL",
study_data = study_data,
meta_data = meta_data,
limits = "HARD_LIMITS"
)
names(MyValueLimits$SummaryPlotList)
MyValueLimits <- con_limit_deviations(
resp_vars = c("QUEST_DT_0"),
label_col = "LABEL",
study_data = study_data,
meta_data = meta_data,
limits = "HARD_LIMITS"
)
MyValueLimits$SummaryPlotList$QUEST_DT_0
Run the code above in your browser using DataLab