Mercurial > repos > anmoljh > csv_to_rdata

annotate csv2rdata.R @ 3:d98e0124cb31 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit ed84801645679d29264a5946c6e7669d26c07f39-dirty
author anmoljh
date Wed, 18 Oct 2017 08:41:12 -0400
parents 85944f34e129
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
1 args <- commandArgs(TRUE)
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
2
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
3 csv2rdatatrain <- function(arg1,arg2)
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
4 {
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
5 file <- read.csv(arg1,row.names =1, header=T)
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
6 col <- ncol(file)
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
7 stopifnot(is.null(file) | col > 2 )
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
8
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
9 #cat("the Outcome column is not a factor vector.\n",file=stderr())
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
10 stopifnot(is.factor(file[,col]))
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
11
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
12 if(levels(file[,col])[1] != ""){
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
13 dataX <- file[,1:(col-1)]
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
14 dataY <- file[,col]
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
15 stopifnot(nrow(dataX) == length(dataY))
3
d98e0124cb31 planemo upload commit ed84801645679d29264a5946c6e7669d26c07f39-dirty
anmoljh
parents: 2
diff changeset
16 save(dataX,dataY,file=arg2)
0
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
17 }
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
18 else{
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
19 cat("the Outcome column has less number of entry than number of compounds.please check input file.\n",file=stderr())
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
20 }
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
21 }
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
22
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
23 csv2rdatatrain(args[1],args[2])
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
24
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
25
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
26
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
27
6b9d382cb4a5 planemo upload commit e713bcfa1b1690f9a21ad0bd796c2d385f646e66-dirty
anmoljh
parents:
diff changeset
28