Mercurial > repos > sblanck > smagexp

comparison Analyse.R @ 10:56267e3293b2 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 0ad899de37d891f387912b7abd63506605a25976-dirty
author sblanck
date Thu, 11 May 2017 08:31:34 -0400
parents f3c021bdc000
children f9732f6bf218
comparison
equal deleted inserted replaced
9:328f4031e5d3 10:56267e3293b2
118 118
119 #head(exprs(eset)) 119 #head(exprs(eset))
120 120
121 gpl <- annotation(eset) 121 gpl <- annotation(eset)
122 if (substr(x = gpl,1,3)!="GPL"){ 122 if (substr(x = gpl,1,3)!="GPL"){
123 #if the annotation info does not start with "GPL" we retrieve the correspondin GPL annotation 123 #if the annotation info does not start with "GPL" we retrieve the corresponding GPL annotation
124 mapping=read.csv("/galaxy-tools/transcriptomics/db/gplToBioc.csv",stringsAsFactors=FALSE) 124 mapping=read.csv("gplToBioc.csv",stringsAsFactors=FALSE)
125 gpl=mapping[which(mapping$bioc_package==annotation(eset)),]$gpl 125 gpl=mapping[which(mapping$bioc_package==annotation(eset)),]$gpl
126 gpl=gpl[1] 126 gpl=gpl[1]
127 127
128 annotation(eset)=gpl 128 annotation(eset)=gpl
129 129