<div dir="ltr"><div><div><div>Con algunas modificaciones el código de Marcelino funciona correctamente: <br><br>##########################################################3<br><br>datos= scan(file="ejemplo.txt" , sep=" ")<br>
datos.pre=subset(datos, <a href="http://is.na">is.na</a>(datos)==F)<br>datos.fin= as.data.frame(matrix(datos.pre, nc=11, byrow=T)[,-c(1:2)])<br>head(datos.fin)<br><br>#################################################<br><br>
</div>Adjunto un ejemplo de archivo tal cual sale del software usado. <br><br></div>Saludos <br><br></div>Fernando <br><br><br></div><div class="gmail_extra"><br><br><div class="gmail_quote">El 22 de febrero de 2013 18:32, Fernando Macedo <span dir="ltr"><<a href="mailto:fermace@gmail.com" target="_blank">fermace@gmail.com</a>></span> escribió:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Reenvío porque no había mandado a toda la lista. <br><div><div class="im"><br>Buenas, estoy acá con Rodrigo, puesto que somos colegas aunque trabajemos en cosas diferentes. <br>
<br>La
solución que aportó Carlos funciona. Todavía no he leído el código
completamente para ver lo que hace cada función, pero me llamó la
atención que funcionase directamente con el archivo original que sale
del programa en cuestión, ya que es levemente diferente a los que colocó
Rodrigo. <br>
<br> 50050 9</div><div><br><div class="im"> 0.1576E-01 0.2021 0.3830E-02 0.1846 0.4018E-02 0.8251E-03 0.8805E-01<br></div></div><div class="im"> 0.8347E-02 1.028 <br> 50100 9<br> 0.1417E-01 0.3379 0.3223E-02 0.8510E-01 0.4129E-02 0.3190E-02 0.8401E-01<br>
0.9298E-02 0.9365 <br> 50150 9</div><div><br><div class="im"> 0.1357E-01 0.3061 0.3747E-02 0.1077 0.3989E-02 0.4462E-02 0.8564E-01<br></div></div><div class="im"> 0.9126E-02 0.9451 <br><br>
<br>Los
"50xxx 9" son respectivamente numero de iteración y columna (que
no son necesarios luego para posteriores análisis) y el resultado que
devuelve el código de Carlos es justamente un data.frame sin esas dos
columnas. <br>
<br>Yo había solucionado pero con previo pasaje por alguna planilla para guardarla con algún separador. <br><br>Luego lo levantas en R (a mi me gusta RStudio) y :<br><br>##############################<div>######################<br>
b=as.vector(t(datos.ini)) # transpongo y transformo en vector el data.frame previamente importado<br><br>c=subset(b,<a href="http://is.na" target="_blank">is.na</a>(b)==F) # Elimino nos NA (que se generan en el tratamiento previo de una planilla de cálculo)<br>
<br>d=matrix(c,4000,11, byrow=T) # sabiendo que son 4000 las líneas lo paso a una matriz<br><br>datos.fin=as.data.frame(d[,-c(1:2)]) # quito las dos primeras columnas (iteración y nº de columnas) que no son interesantes <br>
<br>##########################################################<br><br></div>Obviamente es más particular para el problema específico presentado y sin dudas es preferible la opción presentada por Carlos. <br><br>Saludos y gracias! <br>
<br><br>Fernando</div></div></div><div class="gmail_extra"><br><br><div class="gmail_quote"><div class="im">El 22 de febrero de 2013 17:26, Carlos Ortega <span dir="ltr"><<a href="mailto:cof@qualityexcellence.es" target="_blank">cof@qualityexcellence.es</a>></span> escribió:<br>
</div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hola,<div><div class="h5"><br>
<br>
Mira si este código te funciona:<br>
<br>
<br>
###############################################################<br>
> <a href="http://dat.in" target="_blank">dat.in</a> <- readLines("rod.txt", n=-1)* #grabé las líneas en un fichero al<br>
estilo de lo que tendrás*<br>
> <a href="http://dat.in" target="_blank">dat.in</a><br>
[1] "0.1576E-01 0.2021 0.3830E-02 0.1846 0.4018E-02 0.8251E-03<br>
0.8805E-01"<br>
[2] " 0.8347E-02 1.028"<br>
<br>
[3] " 0.1357E-01 0.3061 0.3747E-02 0.1077 0.3989E-02<br>
0.4462E-02 0.8564E-01"<br>
[4] " 0.9126E-02 0.9451"<br>
<br>
> library(stringr)<br>
> dat.end <- str_trim(<a href="http://dat.in" target="_blank">dat.in</a>)* #Quito los espacios en blanco al principio y<br>
final de las líneas*<br>
> dat.end<br>
[1] "0.1576E-01 0.2021 0.3830E-02 0.1846 0.4018E-02 0.8251E-03<br>
0.8805E-01"<br>
[2] "0.8347E-02 1.028"<br>
<br>
[3] "0.1357E-01 0.3061 0.3747E-02 0.1077 0.3989E-02 0.4462E-02<br>
0.8564E-01"<br>
[4] "0.9126E-02 0.9451"<br>
<br>
><br>
> j<-0<br>
> <a href="http://dat.gd" target="_blank">dat.gd</a> <- 0<br>
> for(i in 1:length(dat.end)) {<br>
+<br>
+ if( length(unlist(str_split(dat.end[i], " "))) > 10 ) {<br>
+ j <- j+1<br>
+ <a href="http://dat.gd" target="_blank">dat.gd</a>[j] <- paste(dat.end[i], dat.end[i+1], sep= " ")<br>
+ } else { next }<br>
+ }<br>
><br>
><br>
> t.con<-textConnection(<a href="http://dat.gd" target="_blank">dat.gd</a>)<br>
> dat.fin<-read.table(t.con, <a href="http://as.is" target="_blank">as.is</a>=T)<br>
> close(t.con)<br>
><br>
> dat.fin<br>
V1 V2 V3 V4 V5 V6 V7 V8 V9<br>
1 0.01576 0.2021 0.003830 0.1846 0.004018 0.0008251 0.08805 0.008347 1.0280<br>
2 0.01357 0.3061 0.003747 0.1077 0.003989 0.0044620 0.08564 0.009126 0.9451<br>
#######################################################################<br>
<br>
Saludos,<br>
Carlos Ortega<br>
<a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a><br>
<br>
<br>
El 22 de febrero de 2013 17:33, Marcuzzi, Javier Ruben <<br>
<a href="mailto:javier.ruben.marcuzzi@gmail.com" target="_blank">javier.ruben.marcuzzi@gmail.com</a>> escribió:<br>
<div><div><br>
> Rod López<br>
><br>
> Lo que usted envía si no entiendo mal no es un problema, ¿si cambia a un<br>
> monitor grande se soluciona automáticamente?, ¿que posibilidad es que<br>
> todo es una sola línea pero al visualizarla aparecen dos? O entendí todo<br>
> mal.<br>
><br>
> No se como es BOA, pero en gibbs luego de tener los resultados, yo supe<br>
> utilizar as.data.frame, y continuar sin problemas.<br>
><br>
> Javier Marcuzzi<br>
><br>
> On vie, <a href="tel:2013-02-22" value="+59820130222" target="_blank">2013-02-22</a> at 14:21 -0200, rod lopez wrote:<br>
> > BOA,<br>
><br>
> _______________________________________________<br>
> R-help-es mailing list<br>
> <a href="mailto:R-help-es@r-project.org" target="_blank">R-help-es@r-project.org</a><br>
> <a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
><br>
<br>
<br>
<br>
</div></div><span><font color="#888888">--<br>
Saludos,<br>
Carlos Ortega<br>
<a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a><br>
<br>
[[alternative HTML version deleted]]<br>
<br>
</font></span><br>_______________________________________________<br>
R-help-es mailing list<br>
<a href="mailto:R-help-es@r-project.org" target="_blank">R-help-es@r-project.org</a><br>
<a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
<br></div></div></blockquote></div><br></div>
</blockquote></div><br></div>