## Not run:
# Annotation$init();
# AnnotationAffx$setCredentials(user="alex.lisovich@gmail.com",password="125438",verbose);
# #create service manage object encapsulating default services
# svm<-ServiceManager(ServiceManager$getDefaultServices());
# #retrieve the data frame list interactively selecting array type and services
# dfList<-getDataFrameList(svm,arrayType="menu",selection="menu",verbose=TRUE);
# # use a static call to collect data using default services
# idMapList<-ServiceManager$getDataFrameList(arrayType="menu",selection="menu",verbose=TRUE);
# ## End(Not run)Run the code above in your browser using DataLab