### Open a dialogue to read an SPSS file
### (wrapped in 'if (interactive())' to prevent execution during
### the testing of the examples when building the package)
if (interactive()) {
getData();
}
### Get a median and a mode
mediaan(c(1,2,2,3,4,4,5,6,6,6,7));
modus(c(1,2,2,3,4,4,5,6,6,6,7));
### Create an example dataframe
(exampleDat <- data.frame(x=rep(8, 8), y=rep(c(0,1), each=4)));
### Filter it, replacing the original dataframe
(filterBy(exampleDat, "y=0"));
### Restore the old dataframe
(useAll(exampleDat));
Run the code above in your browser using DataLab