added example.R