Sample Function In R