<html>
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    <p>Hola Jorge, para guardar un objeto tipo data.frame o similar en
      un archivo al disco duro, puedes usar la funcion:</p>
    <p>write.csv()</p>
    <p>para detalles de su funcionamiento, dentro de una consola R
      escribes:</p>
    <p>?write.csv()<br>
    </p>
    <p>Slds,</p>
    <p>eric.<br>
    </p>
    <p><br>
    </p>
    <p><br>
    </p>
    <br>
    <div class="moz-cite-prefix">On 07/10/2018 09:58 AM, Jorge I Velez
      wrote:<br>
    </div>
    <blockquote type="cite"
cite="mid:CAKL8G3EXbZte+AFhiiZszJJy6m-7p7wV2SX-X4KMeMUtkQNSTw@mail.gmail.com">
      <pre wrap="">Gracias, Marcelino.  Alguna idea sobre cómo almacenarlo en un archivo de
texto?
Saludos,
Jorge.-



On Tue, Jul 10, 2018 at 5:13 AM Marcelino de la Cruz Rot <
<a class="moz-txt-link-abbreviated" href="mailto:marcelino.delacruz@urjc.es">marcelino.delacruz@urjc.es</a>> wrote:

</pre>
      <blockquote type="cite">
        <pre wrap="">Hola. A ver esto, qué tal:


for (i in 1:length(d)){
      cat(paste("Pedigree: ",unique(d[[i]]$ped),"\n"))
      print(d[[i]],row.names=F)

}

Saludos,

Marcelino



El 10/07/2018 a las 11:31, Jorge I Velez escribió:
</pre>
        <blockquote type="cite">
          <pre wrap="">Hola a todos,

A partir de los siguientes datos:

d <- list(`1` = structure(list(ped = c(1L, 1L, 1L, 1L, 1L, 1L, 1L),
     id = 1:7, father = c(2L, 0L, 0L, 2L, 2L, 2L, 2L), mother = c(3L,
     0L, 0L, 3L, 3L, 3L, 3L), sex = c(2L, 1L, 2L, 2L, 2L, 1L,
     2L), affected = c(1L, 2L, 1L, 1L, 2L, 2L, 2L)), row.names = c("1",
"2", "3", "4", "5", "6", "7"), class = "data.frame"), `2` =
</pre>
        </blockquote>
        <pre wrap="">structure(list(
</pre>
        <blockquote type="cite">
          <pre wrap="">     ped = c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
     2L), id = 201:214, father = c(0L, 0L, 0L, 201L, 201L, 201L,
     201L, 201L, 0L, 203L, 203L, 209L, 209L, 209L), mother = c(0L,
     0L, 0L, 202L, 202L, 202L, 202L, 202L, 0L, 204L, 204L, 208L,
     208L, 208L), sex = c(1L, 2L, 1L, 2L, 1L, 2L, 2L, 2L, 1L,
     1L, 1L, 2L, 1L, 1L), affected = c(1L, NA, 1L, 0L, NA, 1L,
     1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L)), row.names = c("42", "43",
"44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54",
"55"), class = "data.frame"))
d

estoy interesado en obtener un archivo de texto "out.txt" con la
</pre>
        </blockquote>
        <pre wrap="">siguiente
</pre>
        <blockquote type="cite">
          <pre wrap="">estructura:


pedigree: 1
ped id father mother sex affected
   1  1      2      3   2        1
   1  2      0      0   1        2
   1  3      0      0   2        1
   1  4      2      3   2        1
   1  5      2      3   2        2
   1  6      2      3   1        2
   1  7      2      3   2        2
pedigree: 2
ped  id father mother sex affected
   2 201      0      0   1        1
   2 202      0      0   2       NA
   2 203      0      0   1        1
   2 204    201    202   2        0
   2 205    201    202   1       NA
   2 206    201    202   2        1
   2 207    201    202   2        1
   2 208    201    202   2        0
   2 209      0      0   1        0
   2 210    203    204   1        0
   2 211    203    204   1        0
   2 212    209    208   2        0
   2 213    209    208   1        0
   2 214    209    208   1        1


La idea es relativamente simple:  guardar cada data.frame de "d" sin row
labels y con el encabezado "pedigree: " seguido del número en la columna
"ped".

Alguna idea?  Por supuesto esto es una versión muy reducida del problema
real.

Muchísimas gracias por su ayuda.

Saludos cordiales,
Jorge.-

      [[alternative HTML version deleted]]

_______________________________________________
R-help-es mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a>
<a class="moz-txt-link-freetext" href="https://stat.ethz.ch/mailman/listinfo/r-help-es">https://stat.ethz.ch/mailman/listinfo/r-help-es</a>
.

</pre>
        </blockquote>
        <pre wrap="">
--
Marcelino de la Cruz Rot
Depto. de Biología y Geología
Física y Química Inorgánica
Universidad Rey Juan Carlos
Móstoles España


</pre>
      </blockquote>
      <pre wrap="">
        [[alternative HTML version deleted]]

_______________________________________________
R-help-es mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a>
<a class="moz-txt-link-freetext" href="https://stat.ethz.ch/mailman/listinfo/r-help-es">https://stat.ethz.ch/mailman/listinfo/r-help-es</a>

</pre>
    </blockquote>
    <br>
    <pre class="moz-signature" cols="72">-- 
Nota: Las tildes se han omitido para asegurar compatibilidad con algunos lectores de correo.
</pre>
  </body>
</html>