R sample (trivial)