### Move to tempdir
wd <- getwd()
setwd(tempdir()); getwd()
##################
### Construction of the data
ld <- gald(10)
kml(ld,3:4,2)
### Basic plotMeansting
plotMeans(ld,3)
### Go back to current dir
setwd(wd)
Run the code above in your browser using DataLab