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]]
_______________________________________________
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
.