A sample R application