if (FALSE) {
load(system.file("extdata/meta_data.RData", package = "dataquieR"), envir =
environment())
load(system.file("extdata/study_data.RData", package = "dataquieR"), envir =
environment())
study_data$v00000 <- as.character(study_data$v00000)
study_data$v00002 <- as.character(study_data$v00002)
study_data$v00002[3] <- ""
appmatrix <- int_datatype_matrix(study_data = study_data,
meta_data = meta_data,
label_col = LABEL)
study_data$v00002[5] <- "X"
appmatrix <- int_datatype_matrix(study_data = study_data,
meta_data = meta_data,
label_col = LABEL)
appmatrix$ReportSummaryTable
}
Run the code above in your browser using DataLab