Mercurial > repos > anmoljh > csv_to_rdata
view csv2rdata.R @ 3:d98e0124cb31 draft default tip
planemo upload commit ed84801645679d29264a5946c6e7669d26c07f39-dirty
author | anmoljh |
---|---|
date | Wed, 18 Oct 2017 08:41:12 -0400 |
parents | 85944f34e129 |
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])