Mercurial > repos > fabio > iwtomics

comparison loadandplot.R @ 32:9ae17a3d1a91 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:39:37 -0400
parents 3c610e8659bd
children fcc0eb90fb07
comparison
equal deleted inserted replaced
31:2f24f591631e 32:9ae17a3d1a91
1 if (require("IWTomics",character.only = TRUE,quietly = FALSE)) { 1 library("IWTomics", quietly=TRUE, warn.conflicts=FALSE,verbose = FALSE)
2 require(tools,quietly = FALSE) 2 #if (require("IWTomics",character.only = TRUE,quietly = FALSE)) {
3 args=commandArgs(TRUE) 3 args=commandArgs(TRUE)
4
5 for (i in seq_along(args)) {
6 message(args[[i]])
7 }
8 4
9 # get args names and values 5 # get args names and values
10 args_values=strsplit(args,'=') 6 args_values=strsplit(args,'=')
11 args_names=unlist(lapply(args_values,function(arg) arg[1])) 7 args_names=unlist(lapply(args_values,function(arg) arg[1]))
12 names(args_values)=args_names 8 names(args_values)=args_names
138 write.table(as.data.frame(t(idRegions(regionsFeatures))),file=outregions,quote=FALSE,sep='\t',row.names=FALSE,col.names=FALSE) 134 write.table(as.data.frame(t(idRegions(regionsFeatures))),file=outregions,quote=FALSE,sep='\t',row.names=FALSE,col.names=FALSE)
139 #write.table(cbind(unlist(strsplit(args_values$featuresfilenames,'\\|')),idFeatures(regionsFeatures),nameFeatures(regionsFeatures)), 135 #write.table(cbind(unlist(strsplit(args_values$featuresfilenames,'\\|')),idFeatures(regionsFeatures),nameFeatures(regionsFeatures)),
140 #file=outfeatures,quote=FALSE,sep='\t',row.names=FALSE,col.names=FALSE) 136 #file=outfeatures,quote=FALSE,sep='\t',row.names=FALSE,col.names=FALSE)
141 write.table(as.data.frame(t(idFeatures(regionsFeatures))),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)
142 save(regionsFeatures,file=outrdata) 138 save(regionsFeatures,file=outrdata)
143 }else{ 139 #}else{
144 quit(save="no", status=255) 140 #quit(save="no", status=255)
145 stop("Missing IWTomics package") 141 #stop("Missing IWTomics package")
146 } 142 #}