R/tardbpdms__glm_prenorm.R

In lehner-lab/tardbpdms: Analysis scripts for processing TDP-43 DMS data from Bolognesi et al. 2019.

#' tardbpdms__glm_prenorm
#'
#' Normalise data.frame columns.
#'
#' @param x data.frame to be normalised (required)
#'
#' @return A normalised data.frame
#' @export
tardbpdms__glm_prenorm <- function(
  x){
  for(i in 1:dim(x)[2]){
    if(length(unique(na.omit(x[,i])))>2 & !is.factor(x[,i])){
      x[,i]<-scale(x[,i])
    }
  }
  x
}