применить strsplit rowwise

Я пытаюсь разбить строку на "." и создайте дополнительные столбцы с двумя строками до и после ".".

tes<-c("1.abc","2.di","3.lik")
dat<-c(5,3,2)
h<-data.frame(tes,dat)
h$num<-substr(h$tes,1,1)

h$prim<-unlist(strsplit(as.character(h$tes),"\\."))[2]
h$prim<-sapply(h$tes,unlist(strsplit(as.character(h$tes),"\\."))[2])

Я бы хотел, чтобы h $ prim содержал "abc", "di", "lik" .. Однако я не смог разобраться. Я предполагаю, что strsplit не векторизован, но потом я подумал, что версия sapply должна работать. Однако я полагаю, это должно быть легко: -)

С уважением, // M