if(require(Biobase) & require(MASS)){
data(mergeData)
merged <-mergeExprs(sample1,sample2,sample3)
rr<-rnorm(200*22,0,1)
mm<-matrix(rr,200,22)
rownames(mm)<-sample2[[3]]
merge.m<-mergeExprs(sample1,mm,sample2)
intcor.m<-intCor(merge.m)
plot(merge.m)
rr<-rnorm(200*50,0,1)
mm2<-matrix(rr,200,50)
ph.ll<-as.data.frame(rbinom(50,1,.5))
ll<-list(mm2,ph.ll,sample2[[3]],"list 2")
merge.t<-mergeExprs(sample1,mm,sample2,ll)
intcor.t<-intCor(merge.t)
plot(merge.t)
merge.a<-mergeExprs(sample3,merge.m,ll)
inter<-intersection(merge.a)
summary(merge.a)
}
Run the code above in your browser using DataLab