chose.driver(scaling)
## The function is currently defined as
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))
}
Run the code above in your browser using DataLab