Sample Function In R Studio