#' Set column names in data to be as in formulae
#'
#' @param data a \code{data.frame} of the data to be modelled
#' @param covnames the covariates that are factors
#'
#'
set_covar_names <- function(data, covnames){
dn <- names(data)
dn_norm <- tolower(dn)
# normalise the covariate names
covnames <- unlist(strsplit(covnames, ","))
cov_norm <- tolower(covnames)
cov_norm <- sub("factor", "", cov_norm)
# replace the names
names(data)[match(cov_norm, dn_norm)] <- covnames
for(cv in covnames){
data[[cv]] <- as.factor(data[[cv]])
}
return(data)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.