Add example of running directly in R