Initial Split Function In R