view csv2rdata.R @ 0:49d7eb9e1092 draft default tip

planemo upload commit a1f4dd8eb560c649391ada1a6bb9505893a35272
author anmoljh
date Thu, 31 May 2018 11:40:01 -0400
parents
children
line wrap: on
line source

args <- commandArgs(TRUE)

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])