added example.r