if(require(Biobase) & require(MASS)){
data(mergeData)
merged <- mergeExprs(sample1,sample2,sample3)
intcor3 <-intCor(merged,method="pearson")
plot(merged)
intcor2 <-intCor(merged[1:2],exact=FALSE)
plot(merged,pch=4,col=5)
pairwise.cors(intcor3)
integrative.cors(intcor3)
integrative.cors(intcor2)["Hs.12101"]
maxcors(intcor2)
}
Run the code above in your browser using DataLab