if(require(Biobase) & require(MASS)){
data(mergeData)
merged <-mergeExprs(sample1,sample2,sample3)
corcor <-intCor(merged,method="spearman")
plot(merged)
hist(corcor)
corcor <-intCor(merged,method="pearson",exact=FALSE)
corcor <-intCor(merged[1:2])
corcor <-intCor(merged,exact=TRUE)
vv<-c(1,3)
corcor1 <-intCor(merged[vv])
plot(merged,xlab="study A",ylab="study B",main="CORRELATION OF CORRELATION",col=3,pch=4)
hist(corcor1,xlab="CORRELATION OF CORRELATION")
}
Run the code above in your browser using DataLab