Mercurial > repos > fabio > iwtomics
comparison loadandplot.R @ 38:fcc0eb90fb07 draft
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 } |