Mercurial > repos > sblanck > mpagenomics_wrappers
annotate selectionExtracted.R @ 8:d5ed62b4d3ac draft default tip
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
author | sblanck |
---|---|
date | Tue, 12 May 2020 13:40:07 +0000 |
parents | |
children |
rev | line source |
---|---|
8
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
1 #!/usr/bin/env Rscript |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
2 # setup R error handling to go to stderr |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
3 options( show.error.messages=F, error = function () { cat( geterrmessage(), file=stderr() ); q( "no", 1, F ) } ) |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
4 |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
5 # we need that to not crash galaxy with an UTF8 error on German LC settings. |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
6 loc <- Sys.setlocale("LC_MESSAGES", "en_US.UTF-8") |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
7 |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
8 library("optparse") |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
9 |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
10 ##### Read options |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
11 option_list=list( |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
12 make_option("--input",type="character",default=NULL, dest="input"), |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
13 make_option("--output",type="character",default=NULL, dest="output"), |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
14 make_option("--new_file_path",type="character",default=NULL, dest="new_file_path"), |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
15 make_option("--response",type="character",default=NULL, dest="response"), |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
16 make_option("--loss",type="character",default=NULL, dest="loss"), |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
17 make_option("--folds",type="character",default=NULL, dest="folds"), |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
18 make_option("--outputlog",type="character",default=NULL, dest="outputlog"), |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
19 make_option("--log",type="character",default=NULL, dest="log") |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
20 ); |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
21 |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
22 opt_parser = OptionParser(option_list=option_list); |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
23 opt = parse_args(opt_parser); |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
24 |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
25 if(is.null(opt$input)){ |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
26 print_help(opt_parser) |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
27 stop("input required.", call.=FALSE) |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
28 } |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
29 |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
30 #loading libraries |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
31 |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
32 |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
33 input=opt$input |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
34 response=opt$response |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
35 output=opt$output |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
36 tmp_dir=opt$new_file_path |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
37 nbFolds=as.numeric(opt$folds) |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
38 loss=opt$loss |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
39 log=opt$log |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
40 outputlog=opt$outputlog |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
41 |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
42 |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
43 #args<-commandArgs(TRUE) |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
44 # |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
45 #input=args[1] |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
46 #response=args[2] |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
47 #tmp_dir=args[3] |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
48 #nbFolds=as.numeric(args[4]) |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
49 #loss=args[5] |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
50 #output=args[6] |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
51 |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
52 library(MPAgenomics) |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
53 workdir=file.path(tmp_dir, "mpagenomics") |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
54 setwd(workdir) |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
55 |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
56 if (outputlog){ |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
57 sinklog <- file(log, open = "wt") |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
58 sink(sinklog ,type = "output") |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
59 sink(sinklog, type = "message") |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
60 } |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
61 |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
62 CN=read.table(input,header=TRUE,check.names=FALSE) |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
63 drops=c("chromosome","position","probeName") |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
64 CNsignal=CN[,!(names(CN)%in% drops)] |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
65 samples=names(CNsignal) |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
66 CNsignalMatrix=t(data.matrix(CNsignal)) |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
67 resp=read.table(response,header=TRUE,sep=",") |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
68 listOfFile=resp[[1]] |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
69 responseValue=resp[[2]] |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
70 index = match(listOfFile,rownames(CNsignalMatrix)) |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
71 responseValueOrder=responseValue[index] |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
72 |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
73 result=variableSelection(CNsignalMatrix,responseValueOrder,nbFolds=nbFolds,loss=loss,plot=TRUE) |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
74 |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
75 CNsignalResult=CN[result$markers.index,(names(CN)%in% drops)] |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
76 |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
77 CNsignalResult["coefficient"]=result$coefficient |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
78 CNsignalResult["index"]=result$markers.index |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
79 |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
80 if (outputlog){ |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
81 sink(type="output") |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
82 sink(type="message") |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
83 close(sinklog) |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
84 } |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
85 |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
86 #sink(output) |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
87 #print(format(CNsignalResult),row.names=FALSE) |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
88 #sink() |
d5ed62b4d3ac
planemo upload for repository https://github.com/sblanck/MPAgenomics4Galaxy/tree/master/mpagenomics_wrappers commit 689d0d8dc899a683ee18700ef385753559850233
sblanck
parents:
diff
changeset
|
89 write.table(CNsignalResult,output,row.names = FALSE, quote=FALSE, sep = "\t") |