Mercurial > repos > deepakjadmin > caret_tool1
view csv2rdatatrain.R @ 0:874a905405db draft
Uploaded
author | deepakjadmin |
---|---|
date | Fri, 22 Jan 2016 03:19:46 -0500 |
parents | |
children |
line wrap: on
line source
args <- commandArgs(TRUE) ####source("/home/galaxy/galaxy-dist/tools/mpdstools/tool1/csv2rdatatrain2.R") csv2rdatatrain <- function(arg1,arg2) { file <- read.csv(arg1,row.names =1, header=T) col <- ncol(file) stopifnot(is.null(file) | col > 2 ) #cat("the Outcome column is not a factor vector.\n",file=stderr()) stopifnot(is.factor(file[,col])) if(levels(file[,col])[1] != ""){ dataX <- file[,1:(col-1)] dataY <- file[,col] stopifnot(nrow(dataX) == length(dataY)) save(dataX,dataY,file=arg2) } else{ cat("the Outcome column has less number of entry than number of compounds.please check input file.\n",file=stderr()) } } csv2rdatatrain(args[1],args[2])