Olá Paulo,<div><br></div><div>obrigado pela dica. Funcionou perfeitamente. </div><div><br></div><div>Abs,</div><div><br><div class="gmail_quote">Em 4 de janeiro de 2012 09:00, Paulo Justiniano <span dir="ltr"><<a href="mailto:paulojus@leg.ufpr.br">paulojus@leg.ufpr.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Emerson<br>
<br>
de fato a leirura é por coluna.<br>
Uma possivel solucao é um rearranjo transpondo o resultado<br>
<br>
as.vector(t(read.fwf("teste1.<u></u>txt", widths=rep(1,10))))<br>
<br>
Para o seu caso com linhas de tamanho diferente a solucao acima pode ainda ser usada trocando 10 pelo numero de elementos da maior linha<br>
Isto vai gerar um vetor com NA's e basta entao excluir os NA's no final<div class="HOEnZb"><div class="h5"><br>
<br>
<br>
On Tue, 3 Jan 2012, Emerson Cotta Bodevan wrote:<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Olá Paulo.<br>
A última linha pode ter números de elementos diferentes...<br>
<br>
Mas achei a sua dica interessante. Porém, fui testá-la aqui e ocorreu que os dados não ficaram na ordem original do<br>
arquivo...<br>
<br>
Meu arquivo (teste1.txt) estava assim:<br>
<br>
0123456789<br>
1617181920<br>
<br>
, ao utilizar a sua sugestão<br>
<br>
unname(unlist(read.fwf("<u></u>teste1.txt", widths=rep(1,10))))<br>
<br>
apareceu o seguinte no prompt do R:<br>
<br>
0 1 1 6 2 1 3 7 4 1 5 8 6 1 7 9 8 2 9 0<br>
<br>
Ou seja, ele está lendo por coluna. Gostaria que mantivesse o original, por linha...<br>
<br>
0 1 2 3 4 5 6 7 8 9 1 6 1 7 1 8 1 9 2 0<br>
<br>
O que pode ser?<br>
<br>
Abs,<br>
<br>
Em 2 de janeiro de 2012 09:20, Paulo Justiniano <<a href="mailto:paulojus@leg.ufpr.br" target="_blank">paulojus@leg.ufpr.br</a>> escreveu:<br>
Emerson<br>
<br>
no seu arquivo original as linhas nao possuem<br>
o mesmo numero de elementos?<br>
<br>
Caso o numero de elementos fosse o memso uma solucao simplificada<br>
seria (supondo 30 elementos por linha)<br>
<br>
unname(unlist(read.fwf("SEU ARQUIVO DE DADOS", widths=rep(1,30))))<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
On Mon, 2 Jan 2012, Emerson Cotta Bodevan wrote:<br>
<br>
Obrigado a todos.<br>
A solução para meu caso ficou assim:<br>
<br>
teste2<-scan("teste2.txt",<u></u>what=character())<br>
teste2<br>
teste3<-NA<br>
for(i in 1:length(teste2))<br>
{<br>
teste3<-c(teste3,as.numeric(<u></u>strsplit(teste2,'')[[i]]))<br>
}<br>
teste3<-teste3[2:length(<u></u>teste3)]<br>
teste3<br>
<br>
, onde teste2.txt é um arquivo com duas linhas com uma sequencia de inteiros sem espaços.<br>
<br>
<br>
0123456789101<br>
0920212223<br>
<br>
<br>
Abs,<br>
<br>
Em 1 de janeiro de 2012 10:48, Leonard de Assis <<a href="mailto:assis.leonard@gmail.com" target="_blank">assis.leonard@gmail.com</a>> escreveu:<br>
tente usar o read.fwf<br>
<br>
digite ?read.fwf para saber a sintaxe correta.<br>
<br>
[]s<br>
Leonard de Assis<br>
assis <dot> leonard <at> gmail <dot> com<br>
<br>
Em 31/12/2011 14:27, Emerson Cotta Bodevan escreveu:<br>
Prezados,<br>
tenho um arquivo .txt com uma sequência enorme de números.<br>
<br>
Por ex.:<br>
012030440556008567394768465849<u></u>560493257093284750983653679358<u></u>659342057409239856423056243906<u></u>5423095624359842350234567<br>
<br>
230945<br>
734012745904275983426509324856<u></u>014723756109243650986423054360<u></u>958672309675675986724367093467<u></u>5....<br>
.<br>
.<br>
.<br>
...<u></u>873502745234759827345962394673<u></u>589276096509723457920347592374<u></u>59623767235967526<br>
<br>
chego a ter milhares de números! Veja que não há espaço entre os dígitos da sequência!<br>
<br>
Gostaria de ler esse arquivo para um vetor mas, ao ler, quero que o R entenda que cada<br>
dígito deva ser<br>
armazenado numa posição diferente no vetor criado.<br>
<br>
Por ex. (no arquivo acima):<br>
<br>
0 1 2 0 3 0 4 4 0 5 5 6 0 0 8... cada um pertencendo a uma posição no vetor criado.<br>
<br>
Agradeço qualquer ajuda,<br>
<br>
--<br>
Emerson<br>
<br>
<br>
<br>
______________________________<u></u>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/<u></u>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-<u></u>guia</a>) e forneça código mínimo<br>
reproduzível.<br>
<br>
<br>
______________________________<u></u>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/<u></u>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-<u></u>guia</a>) e forneça código mínimo<br>
reproduzível.<br>
<br>
<br>
<br>
<br>
--<br>
Emerson<br>
<br>
<br>
<br>
______________________________<u></u>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/<u></u>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-<u></u>guia</a>) e forneça código mínimo reproduzível.<br>
<br>
<br>
<br>
<br>
--<br>
Emerson<br>
<br>
<br>
</blockquote>
</div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br>
<font size="4" face="'trebuchet ms', sans-serif"><b>Emerson</b></font><br><br>
</div>