# retrieve two datasets:
library(inSilicoDb);
InSilicoLogin("rpackage_tester@insilicodb.com", "5c4d0b231e5cba4a0bc54783b385cc9a");
eset1 = getDataset("GSE18842", "GPL570", norm="FRMA", features="gene");
eset2 = getDataset("GSE31547", "GPL96", norm="FRMA", features="gene");
esets = list(eset1,eset2);
# merge them using no additional merging technique and the 'COMBAT' method:
library(inSilicoMerging)
eset_FRMA = merge(esets);
eset_COMBAT = merge(esets, method="COMBAT");
# check available annotations:
colnames(pData(eset_FRMA))
table(pData(eset_FRMA)[,"Disease"]);
table(pData(eset_FRMA)[,"Study"]);
# Visual inspection of the two merged datasets through an MDS plot
plotRLE(eset_FRMA, colLabel="Disease")
plotRLE(eset_COMBAT, colLabel="Disease")
Run the code above in your browser using DataLab