Mercurial > repos > fabio > iwtomics

comparison loadandplot.R @ 38:fcc0eb90fb07 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded 20170531
author fabio
date Wed, 31 May 2017 12:50:22 -0400
parents 9ae17a3d1a91
children 2bb6b44093ba
comparison
equal deleted inserted replaced
37:8e19da0956a7 38:fcc0eb90fb07
1 library("IWTomics", quietly=TRUE, warn.conflicts=FALSE,verbose = FALSE) 1 if (require("IWTomics",character.only = TRUE,quietly = FALSE)) {
2 #if (require("IWTomics",character.only = TRUE,quietly = FALSE)) {
3 args=commandArgs(TRUE) 2 args=commandArgs(TRUE)
4 3
5 # get args names and values 4 # get args names and values
6 args_values=strsplit(args,'=') 5 args_values=strsplit(args,'=')
7 args_names=unlist(lapply(args_values,function(arg) arg[1])) 6 args_names=unlist(lapply(args_values,function(arg) arg[1]))
134 write.table(as.data.frame(t(idRegions(regionsFeatures))),file=outregions,quote=FALSE,sep='\t',row.names=FALSE,col.names=FALSE) 133 write.table(as.data.frame(t(idRegions(regionsFeatures))),file=outregions,quote=FALSE,sep='\t',row.names=FALSE,col.names=FALSE)
135 #write.table(cbind(unlist(strsplit(args_values$featuresfilenames,'\\|')),idFeatures(regionsFeatures),nameFeatures(regionsFeatures)), 134 #write.table(cbind(unlist(strsplit(args_values$featuresfilenames,'\\|')),idFeatures(regionsFeatures),nameFeatures(regionsFeatures)),
136 #file=outfeatures,quote=FALSE,sep='\t',row.names=FALSE,col.names=FALSE) 135 #file=outfeatures,quote=FALSE,sep='\t',row.names=FALSE,col.names=FALSE)
137 write.table(as.data.frame(t(idFeatures(regionsFeatures))),file=outfeatures,quote=FALSE,sep='\t',row.names=FALSE,col.names=FALSE) 136 write.table(as.data.frame(t(idFeatures(regionsFeatures))),file=outfeatures,quote=FALSE,sep='\t',row.names=FALSE,col.names=FALSE)
138 save(regionsFeatures,file=outrdata) 137 save(regionsFeatures,file=outrdata)
139 #}else{ 138 }else{
140 #quit(save="no", status=255) 139 quit(save="no", status=255)
141 #stop("Missing IWTomics package") 140 stop("Missing IWTomics package")
142 #} 141 }