Add example.R