#create empty service manager object
svm<-ServiceManager(ServiceManager$getDefaultServices());
print(names(getServices(svm)))
#redefine set of services
setServices(svm,list(
NetAffx_F2=AnnotationAffx("Affymetrix_3_20_10"),
EnSembl_Q2=AnnotationEnsembl("Ensembl_3_20_10",species="Homo sapiens")
));
print(names(getServices(svm)));
Run the code above in your browser using DataLab