Mercurial > repos > mmonsoor > camera_combinexsannos

comparison CAMERA.r @ 12:961089e21ae2 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 1a5357c0e28103a0325b2df858504721f6266049
author lecorguille
date Tue, 09 Oct 2018 06:03:24 -0400
parents 837c6955e4e9
children
comparison
equal deleted inserted replaced
11:837c6955e4e9 12:961089e21ae2
81 rplotspdf = "Rplots.pdf" 81 rplotspdf = "Rplots.pdf"
82 if (!is.null(listArguments[["rplotspdf"]])){ 82 if (!is.null(listArguments[["rplotspdf"]])){
83 rplotspdf = listArguments[["rplotspdf"]]; listArguments[["rplotspdf"]]=NULL 83 rplotspdf = listArguments[["rplotspdf"]]; listArguments[["rplotspdf"]]=NULL
84 } 84 }
85 85
86 dataMatrixOutput = "dataMatrix.tsv"
87 if (!is.null(listArguments[["dataMatrixOutput"]])){
88 dataMatrixOutput = listArguments[["dataMatrixOutput"]]; listArguments[["dataMatrixOutput"]]=NULL
89 }
90
91 variableMetadataOutput = "variableMetadata.tsv" 86 variableMetadataOutput = "variableMetadata.tsv"
92 if (!is.null(listArguments[["variableMetadataOutput"]])){ 87 if (!is.null(listArguments[["variableMetadataOutput"]])){
93 variableMetadataOutput = listArguments[["variableMetadataOutput"]]; listArguments[["variableMetadataOutput"]]=NULL 88 variableMetadataOutput = listArguments[["variableMetadataOutput"]]; listArguments[["variableMetadataOutput"]]=NULL
94 } 89 }
95 90
127 122
128 #change the default display settings 123 #change the default display settings
129 pdf(file=rplotspdf, width=16, height=12) 124 pdf(file=rplotspdf, width=16, height=12)
130 125
131 if (thefunction %in% c("annotatediff")) { 126 if (thefunction %in% c("annotatediff")) {
132 results_list=annotatediff(xset=xset,listArguments=listArguments,variableMetadataOutput=variableMetadataOutput,dataMatrixOutput=dataMatrixOutput) 127 results_list=annotatediff(xset=xset,listArguments=listArguments,variableMetadataOutput=variableMetadataOutput)
133 xa=results_list[["xa"]] 128 xa=results_list[["xa"]]
134 diffrep=results_list[["diffrep"]] 129 diffrep=results_list[["diffrep"]]
135 variableMetadata=results_list[["variableMetadata"]] 130 variableMetadata=results_list[["variableMetadata"]]
136 131
137 cat("\n\n") 132 cat("\n\n")