[R-br] Separa primeiro e último nome

[Fátima Lima Paula]

Prezados, consegui o que eu queria, graças a vocês.
Estava com dificuldade porque o que eu tinha depois de fazer o t(fa) não
era um data.frame. Depois que transformei em data.frame foi só juntar o
antigo e criado por mim e deu certo.
Muito obrigada a todos.
Fátima
Segue o passo a passo:

idoso200801=read.csv("idoso200801.csv",header=T)
teste=idoso200801
nome=teste$AH_PACIENT
library(stringr)
separado=strsplit(as.character(nome),split=" ")
head(separado)
fa=sapply(separado,
       function(i){
         n=length(i)
         c(i[1],paste(i[2:(n-1)],collapse=" "), i[n])
       })
head(fa)
nomenovo=t(fa)
is.data.frame(nomenovo)
as.data.frame(nomenovo)
dim(nomenovo)
colnames(nomenovo)=c("nome1","nome2","nome3")
head(nomenovo)
testenovo=cbind(teste,nomenovo)
head(testenovo)
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121029/84a26f75/attachment.html>