annotate caret_regression/tool1/csv2rdatatrain.R @ 0:68300206e90d draft default tip

Uploaded
author deepakjadmin
date Thu, 05 Nov 2015 02:41:30 -0500
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
1 args <- commandArgs(TRUE)
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
2 ####source("/home/galaxy/galaxy-dist/tools/mpdstools/tool1/csv2rdatatrain2.R")
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
3
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
4 csv2rdatatrain <- function(arg1,arg2){ file <- read.csv(arg1,row.names =1, header=T)
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
5 col <- ncol(file)
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
6 stopifnot(is.null(file) | col > 2 )
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
7
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
8 #cat("the Outcome column is not a factor vector.\n",file=stderr())
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
9 stopifnot(is.numeric(file[,col]))
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
10
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
11 # if(is.numeric(file[,col]) {
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
12 dataX <- file[,1:(col-1)]
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
13 dataY <- file[,col]
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
14 stopifnot(nrow(dataX) == length(dataY))
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
15 save(dataX,dataY,file=arg2)
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
16 # }else { cat("the Outcome column has less number of entry than number of compounds.please check input file.\n",file=stderr())
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
17 # }
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
18 }
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
19
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
20 csv2rdatatrain(args[1],args[2])
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
21
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
22
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
23
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
24
68300206e90d Uploaded
deepakjadmin
parents:
diff changeset
25