Hola,

A mí no me funciona... :-(

####################
> datos<- scan(file="rod.txt" , sep=" ")
Read 52 items
> datos
 [1] 0.0157600        NA 0.2021000        NA        NA        NA        NA
       NA 0.0038300        NA
[11] 0.1846000        NA        NA        NA        NA        NA 0.0040180
       NA 0.0008251 0.0880500
[21]        NA        NA 0.0083470        NA        NA 1.0280000        NA
0.0135700        NA 0.3061000
[31]        NA        NA        NA        NA        NA 0.0037470        NA
0.1077000        NA        NA
[41]        NA        NA        NA 0.0039890        NA 0.0044620 0.0856400
       NA        NA 0.0091260
[51]        NA 0.9451000
> datos <- matrix(datos, nc=9, byrow=T)
Mensajes de aviso perdidos
In matrix(datos, nc = 9, byrow = T) :
  la longitud de los datos [52] no es un submúltiplo o múltiplo del número
de filas [6] en la matriz
> datos
          [,1]    [,2]   [,3] [,4]     [,5] [,6]   [,7]     [,8]     [,9]
[1,] 0.0157600      NA 0.2021   NA       NA   NA     NA       NA 0.003830
[2,]        NA 0.18460     NA   NA       NA   NA     NA 0.004018       NA
[3,] 0.0008251 0.08805     NA   NA 0.008347   NA     NA 1.028000       NA
[4,] 0.0135700      NA 0.3061   NA       NA   NA     NA       NA 0.003747
[5,]        NA 0.10770     NA   NA       NA   NA     NA 0.003989       NA
[6,] 0.0044620 0.08564     NA   NA 0.009126   NA 0.9451 0.015760       NA
####################


Saludos,
Carlos Ortega
www.qualityexcellence.es





El 22 de febrero de 2013 21:07, MARCELINO DE LA CRUZ ROT <
marcelino.delacruz@upm.es> escribió:

> Una versión más fácil y más rápida:
>
> datos<- scan(file="rod.txt" , sep=" ")
> datos <- matrix(datos, nc=9, byrow=T)
>
>
> Saludos,
>
> Marcelino
>
>
> El 2013-02-22 20:26, Carlos Ortega escribió:
>
>> Hola,
>>
>> Mira si este código te funciona:
>>
>>
>> ##############################**##############################**###
>>
>>> dat.in <- readLines("rod.txt", n=-1)* #grabé las líneas en un fichero al
>>>
>> estilo de lo que tendrás*
>>
>>  dat.in
>>>
>> [1] "0.1576E-01  0.2021      0.3830E-02  0.1846      0.4018E-02
>>  0.8251E-03
>> 0.8805E-01"
>> [2] "  0.8347E-02   1.028"
>>
>> [3] " 0.1357E-01  0.3061      0.3747E-02  0.1077      0.3989E-02
>>  0.4462E-02 0.8564E-01"
>> [4] "  0.9126E-02  0.9451"
>>
>>  library(stringr)
>>> dat.end <- str_trim(dat.in)* #Quito los espacios en blanco al principio
>>> y
>>>
>> final de las líneas*
>>
>>  dat.end
>>>
>> [1] "0.1576E-01  0.2021      0.3830E-02  0.1846      0.4018E-02
>>  0.8251E-03
>> 0.8805E-01"
>> [2] "0.8347E-02   1.028"
>>
>> [3] "0.1357E-01  0.3061      0.3747E-02  0.1077      0.3989E-02
>>  0.4462E-02
>> 0.8564E-01"
>> [4] "0.9126E-02  0.9451"
>>
>>
>>> j<-0
>>> dat.gd <- 0
>>> for(i in 1:length(dat.end)) {
>>>
>> +
>> +    if( length(unlist(str_split(dat.**end[i], " "))) > 10 ) {
>> +     j <- j+1
>> +     dat.gd[j] <- paste(dat.end[i], dat.end[i+1], sep= " ")
>> +    } else { next }
>> + }
>>
>>>
>>>
>>> t.con<-textConnection(dat.gd)
>>> dat.fin<-read.table(t.con, as.is=T)
>>> close(t.con)
>>>
>>> dat.fin
>>>
>>        V1     V2       V3     V4       V5        V6      V7       V8    V9
>> 1 0.01576 0.2021 0.003830 0.1846 0.004018 0.0008251 0.08805 0.008347
>> 1.0280
>> 2 0.01357 0.3061 0.003747 0.1077 0.003989 0.0044620 0.08564 0.009126
>> 0.9451
>>
>> ##############################**##############################**
>> ###########
>>
>> Saludos,
>> Carlos Ortega
>> www.qualityexcellence.es
>>
>>
>> El 22 de febrero de 2013 17:33, Marcuzzi, Javier Ruben <
>> javier.ruben.marcuzzi@gmail.**com <javier.ruben.marcuzzi@gmail.com>>
>> escribió:
>>
>>  Rod López
>>>
>>> Lo que usted envía si no entiendo mal no es un problema, ¿si cambia a un
>>> monitor grande se soluciona automáticamente?, ¿que posibilidad es que
>>> todo es una sola línea pero al visualizarla aparecen dos? O entendí todo
>>> mal.
>>>
>>> No se como es BOA, pero en gibbs luego de tener los resultados, yo supe
>>> utilizar as.data.frame, y continuar sin problemas.
>>>
>>> Javier Marcuzzi
>>>
>>> On vie, 2013-02-22 at 14:21 -0200, rod lopez wrote:
>>> > BOA,
>>>
>>> ______________________________**_________________
>>> R-help-es mailing list
>>> R-help-es@r-project.org
>>> https://stat.ethz.ch/mailman/**listinfo/r-help-es<https://stat.ethz.ch/mailman/listinfo/r-help-es>
>>>
>>>
>>
>>
>> --
>> Saludos,
>> Carlos Ortega
>> www.qualityexcellence.es
>>
>>         [[alternative HTML version deleted]]
>>
>>
>>
>> ______________________________**_________________
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/**listinfo/r-help-es<https://stat.ethz.ch/mailman/listinfo/r-help-es>
>>
>
> --
> MARCELINO DE LA CRUZ ROT
> Universidad Politecnica de Madrid
>



-- 
Saludos,
Carlos Ortega
www.qualityexcellence.es

	[[alternative HTML version deleted]]

