sample.R added