standardize <- function()

in R/step2_feature_engineering.R [78:84]

• 7 lines of code
• 2 McCabe index (conditional complexity)

standardize <- function(data){
  data <- data.frame(data)
  for(n in 1:nrow(Stats)){
    data[[Stats[n,1]]] <- (data[[Stats[n,1]]] - Stats[n,2])/Stats[n,3]
    }
  return(data)
}