Split Function In R Programming