updated sample R