#!/usr/bin/env Rscript
library(caret)
args = commandArgs(trailingOnly=TRUE)
variables = read.csv(args[1])
scaling = preProcess(variables, method = c("nzv","corr","center", "scale"))
scaled = predict(scaling,variables)
write.csv(scaled,file=args[2], row.names=F, quote=F)