updated sample.r