simplified example.R