#retrieve msms ('Uniprot') experiment data as a data frame
expSetDF<-examples$corrData$getExperimentSet(modality="Uniprot",as="data.frame");
expSetDF[1:10,1:5];
#retrieve mrns ('Affy') experiment data as an ExpressionSet
expSet<-examples$corrData$getExperimentSet(modality="Affy",as="ExpressionSet");
print(expSet);
expSetDF<-t(as(expSet,"data.frame"));
expSetDF[1:10,1:5];
Run the code above in your browser using DataLab