Nothing
#' Adds stratification to data set
#'
#' @param dat data.frame
#' @param strat vector of stratification variables
#' @param verbose verbosity (`TRUE` or `FALSE`)
add_stratification <- function (dat, strat, verbose = FALSE) {
if(is.null(strat)) {
dat$strat <- 1
} else {
if (all(strat %in% colnames(dat))) {
if(length(strat) == 1) {
dat$strat <- data.frame(dat)[,strat]
} else {
dat$strat <- ""
for(i in seq(strat)) {
if(i > 1) {
dat$strat <- paste0(dat$strat, ", ")
}
dat$strat <- paste0(dat$strat, data.frame(dat)[,strat[i]])
}
}
} else {
dat$strat <- 1
msg("Specified stratification column name not found, not performing stratification.", verbose)
}
}
if(class(dat$strat) != "factor") {
dat$strat <- as.factor(dat$strat)
}
return(dat)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.