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)