<font color="#993399"><font size="4"><font face="comic sans ms,sans-serif">Prezados, consegui o que eu queria, graças a vocês.</font></font></font>
<div><font color="#993399"><font size="4"><font face="comic sans ms,sans-serif">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.</font></font></font></div>
<div><font color="#993399"><font size="4"><font face="comic sans ms,sans-serif">Muito obrigada a todos.</font></font></font></div><div><font color="#993399"><font size="4"><font face="comic sans ms,sans-serif">Fátima</font></font></font></div>
<div><font color="#993399"><font size="4"><font face="comic sans ms,sans-serif">Segue o passo a passo:</font></font></font></div><div><font color="#993399"><font size="4"><font face="comic sans ms,sans-serif"><br></font></font></font></div>
<div><font color="#993399"><div><font face="arial, helvetica, sans-serif">idoso200801=read.csv("idoso200801.csv",header=T)</font></div><div><font face="arial, helvetica, sans-serif">teste=idoso200801</font></div>
<div><font face="arial, helvetica, sans-serif">nome=teste$AH_PACIENT</font></div><div><font face="arial, helvetica, sans-serif">library(stringr)</font></div><div><font face="arial, helvetica, sans-serif">separado=strsplit(as.character(nome),split=" ")</font></div>
<div><font face="arial, helvetica, sans-serif">head(separado)</font></div><div><font face="arial, helvetica, sans-serif">fa=sapply(separado,</font></div><div><font face="arial, helvetica, sans-serif">       function(i){</font></div>
<div><font face="arial, helvetica, sans-serif">         n=length(i) </font></div><div><font face="arial, helvetica, sans-serif">         c(i[1],paste(i[2:(n-1)],collapse=" "), i[n])</font></div><div><font face="arial, helvetica, sans-serif">       })</font></div>
<div><font face="arial, helvetica, sans-serif">head(fa)</font></div><div><font face="arial, helvetica, sans-serif">nomenovo=t(fa)</font></div><div><font face="arial, helvetica, sans-serif">is.data.frame(nomenovo)</font></div>
<div><font face="arial, helvetica, sans-serif">as.data.frame(nomenovo)</font></div><div><font face="arial, helvetica, sans-serif">dim(nomenovo)</font></div><div><font face="arial, helvetica, sans-serif">colnames(nomenovo)=c("nome1","nome2","nome3")</font></div>
<div><font face="arial, helvetica, sans-serif">head(nomenovo)</font></div><div><font face="arial, helvetica, sans-serif">testenovo=cbind(teste,nomenovo)</font></div><div><font face="arial, helvetica, sans-serif">head(testenovo)</font></div>
<div style="font-size:large;font-family:'comic sans ms',sans-serif"><br></div></font></div>