Mercurial > repos > sblanck > smagexp

comparison AffyQCnormalization.R @ 8:e4e6e583b8d9 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/sblanck/smagexp/tree/master/smagexp_tools commit ad301f84e16455ca3886e9b56e908180dfd66d4f
author sblanck
date Thu, 26 Jul 2018 08:17:53 -0400
parents 1024245abc70
children
comparison
equal deleted inserted replaced
7:aedbf50acb4a 8:e4e6e583b8d9
36 suppressPackageStartupMessages(require(affy)) 36 suppressPackageStartupMessages(require(affy))
37 suppressPackageStartupMessages(require(affyPLM)) 37 suppressPackageStartupMessages(require(affyPLM))
38 suppressPackageStartupMessages(require(dplyr)) 38 suppressPackageStartupMessages(require(dplyr))
39 39
40 listInput <- trimws( unlist( strsplit(trimws(opt$input), ",") ) ) 40 listInput <- trimws( unlist( strsplit(trimws(opt$input), ",") ) )
41
42 listInput <- trimws( unlist( strsplit(trimws(opt$input), ",") ) )
43 if(length(listInput)<2){
44 stop("To few .CEL files selected : At least 2 .CEL files are required", call.=FALSE)
45 }
46
41 47
42 celList=vector() 48 celList=vector()
43 celFileNameList=vector() 49 celFileNameList=vector()
44 50
45 for (i in 1:length(listInput)) 51 for (i in 1:length(listInput))