add tests to examples.R