library(golubEsets)
library(vsn)
data(Golub_Merge)
b<-Golub_Merge$Source
E<-exprs(vsn2(Golub_Merge))
batch<-rep(1,length(b))
for(i in 1:length(b)){
if(b[i]=="CALGB"){batch[i]<-2}
if(b[i]=="CCG"){batch[i]<-3}
if(b[i]=="St-Jude"){batch[i]<-4}
}
Eadj<-ber(t(E),batch)
Run the code above in your browser using DataLab