library(Rodam)

# Initialize the 'ODAM' object 
dh <- new('odamws', 'http://pmb-bordeaux.fr/getdata/', 'frim1')

# Get the Data Tree
show(dh)

# Get the data subsets list
dh$subsetNames

# Get 'activome' data subset
ds <- dh$getSubsetByName('activome')

# Show all descriptions of variables
ds$LABELS

# Show all factors defined in the data subset
ds$facnames

# Show all quantitative variables defined in the data subset
ds$varnames

# Show all qualitative variables defined in the data subset
ds$qualnames

# Display a summary for each quantitative variable
summary(ds$data[, ds$varnames ])

# Boxplot of all variables defined in ds$varnames
Rank <- simplify2array(lapply(ds$varnames, function(x) { round(mean(log10(ds$data[ , x]), na.rm=T)) }))
Rank[!is.finite(Rank)] <- 0
colRank <- Rank - min(Rank) + 1
cols <- c('red', 'orange', 'darkgreen', 'blue', 'purple', 'brown')
options(repr.plot.width=12, repr.plot.height=10)
boxplot(log10(ds$data[, ds$varnames]), outline=F, horizontal=T, border=cols[colRank], las=2, cex.axis=0.5)