Permalink
Branch: master
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
25 lines (17 sloc) 895 Bytes
# Load the required libraries on client side and login in Opal
library(opal)
o <- opal.login('administrator', 'password', 'http://demo.obiba.org:8080')
# Assign some variables into a data.frame with associated *D* symbol in R on Opal server side:
opal.assign(o,'D','mica_demo.FNAC',variables=c('SVUOSI','SUKUP','PITUUS','PAINO'))
# Preview the assigned data.frame:
opal.execute(o,'head(D)')
#Summary of the assigned data.frame:
opal.execute(o,'summary(D)')
# Histogram figure of the *PITUUS* variable:
plot(opal.execute(o,'hist(D$PITUUS)'))
# Loading *ggplot2* library in R on Opal server side... This will fail if *ggplot2* is not installed in R server environment.
opal.execute(o, 'library(ggplot2)')
# Plot *PITUUS* vs. *PAINO* with "lm" smoothing:
opal.execute(o,'qplot(PITUUS,PAINO, data=D) + geom_smooth(method="lm")')
# Cleaning the resources on Opal server side...
opal.logout(o)