[R-es] Construcción de archivo de texto

[Jorge I Velez]

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` = structure(list(
    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 siguiente
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]]