R/chose.driver.R

In muma: Metabolomics Univariate and Multivariate Analysis

chose.driver <-
function(scaling) {
  pwd.n = paste(getwd(), "/Preprocessing_Data_", scaling, "/ProcessedTable.csv", sep="")
  x <- read.csv(pwd.n, sep=",", header=TRUE)
  x.x <- x[,2:ncol(x)]
  rownames(x.x) <- x[,1]
  print(colnames(x.x))
  }