Create sample.R