search for: usepo

...07) CM <- cumsum(affy) n.markers <- sum(affy) n.chr <- length(affy) test <- data.frame(chr=rep(1:n.chr,affy),pos=1:n.markers,p=runif(n.markers)) oldpar <- par() par(las="1",cex=0.6) colors <- rep(c("blue","green"),11) par(cex.axis=1.3) mhtplot(test,usepos=TRUE,colors=colors,gap=10000,pch=19,bg=colors) box() par(oldpar) Disclaimer: De informatie opgenomen in dit bericht (en bijlagen) kan vertrouwelijk zijn en is uitsluitend bestemd voor de geadresseerde(n). Indien u dit bericht ten onrechte ontvangt, wordt u geacht de inhoud...