Sample Split Function In R