library(Biobase);
#convert CorrData object to MultiSet
mset<-as.MultiSet(examples$corrData);
#get sample names
samples<-featureNames(mset);
print(samples);
#retrieve primary and secondary keys
annotation(mset);
#retreive primary and secondary IDs
uniprotIDs<-colnames(assayData(mset)[[1]]);
affyIDs<-colnames(assayData(mset)[[2]]);
uniprotIDs[1:20];
affyIDs[1:20];
Run the code above in your browser using DataLab