Update sample.R