## loading mask on all genes (exmask1) of the same dataset
data(exmask)
overlapExSeq <- overlapExprExtMasks(exmask$probes[,1:3],sequenceMask[,c(1,2,4)])
## plot results
plot(overlapExSeq$type1,overlapExSeq$type2,type="l",col="red",
main="Overlap expression based mask - sequence based mask",xlab="Type 1",ylab="Type 2")
abline(1,-1,col="gray")
## performing wilcoxon rank sum test and Kolmogorov-Smirnov test on
## expression mask with all genes (exmask)
overlapTests <-
overlapExprExtMasks(exmask$probes[,1:3],sequenceMask[,c(1,2,4)],wilcox.ks=TRUE)
layout(matrix(1:2,ncol=1))
plot(overlapTests$testCutoff[[1]],overlapTests$ksBoot,col="red",main="Kolmogorov-Smirnov Test",xlab="Quality score cutoff",
ylab="p value (Kolmogorov-Smirnov Test)",ylim=c(0,1),pch=16,xaxt="n")
axis(1,at=1:length(unique(overlapTests$testCutoff[[2]])),labels=signif(unique(overlapTests$testCutoff[[2]]),2),las=3)
lines(which(unique(overlapTests$testCutoff[[2]]) %in% overlapTests$testCutoff[[2]]),overlapTests$ksP[!is.na(overlapTests$ksP)],type="p",pch=16,cex=0.8)
plot(overlapTests$testCutoff[[1]],overlapTests$wilcoxonBoot,col="green",main="Wilcoxon Rank Sum Test",xlab="Quality score cutoff",
ylab="p value (Wilcoxon Rank Sum Test)",ylim=c(0,1),pch=16,xaxt="n")
axis(1,at=1:length(unique(overlapTests$testCutoff[[2]])),labels=signif(unique(overlapTests$testCutoff[[2]]),2),las=3)
lines(which(unique(overlapTests$testCutoff[[2]]) %in% overlapTests$testCutoff[[2]]),overlapTests$wilcoxonP[!is.na(overlapTests$wilcoxonP)],type="p",pch=16,cex=0.8)
Run the code above in your browser using DataLab