add random sample R Markdown