Create sample.r