change source(.../examples.R) to test time to run