InSilicoLogin("rpackage_tester@insilicodb.com", "5c4d0b231e5cba4a0bc54783b385cc9a");
data.id <- "GSE781";
plt.id <- "GPL96";
## return the default parameters when calling getDataset
eset <- getDatasetInfo( data.id, plt.id);
eset$norm;
## [1] "FRMA"
plt.id <- "GPL97";
## check the availability of the normalizations
norms <- c("FRMA", "ORIGINAL")
output <- sapply(norms, function(n) {
tryCatch({
eset <- getDatasetInfo(data.id, plt.id, norm = n);
eset$norm;
}, error = function(e) {
message(e);
});
});
output$FRMA
## NULL
output$ORIGINAL
## [1] "ORIGINAL"
Run the code above in your browser using DataLab