R/set_covar_names.R

In DistanceDevelopment/readdst: Convert Distance for Windows projects to R analyses

#' 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)
}