Ergebnisse aus einer Schleife in einer Datei zusammenfassen

Question

Ich erstelle eine Schleife wie diese:

for (p in 1:nrow(outcomes)) {

    id <- apply(regulationtable, 1, function(i)
        sum(i[1:length(regulationtable)] != outcomes[p,])==0)

    idd <- as.matrix(id)
    test2 = subset(idd, idd[,1]==TRUE)

    result <- as.data.frame(rownames(test2))

    filename = paste("file", p, ".txt")

    write.table(result, filename)
}

Die Ergebnisse jeder Schleife werden in einer Datei gespeichert. Ich möchte diese Ergebnisse kombinieren und eine Datei mit allen Ergebnissen erstellen.

Kann mir jemand in dieser Angelegenheit helfen?

Answer 1

Mit dem append Argument in write.table können Sie Zeilen zu einer bestehenden Datei hinzufügen, anstatt sie zu überschreiben:

if (p == 1) 
{
  write.table(result, "file.txt") 
} else
{ 
  write.table(result, "file.txt", append = TRUE, col.names = FALSE)
}

Ist es das, was Sie meinen?

EDIT: Sie könnten wollen, dass der erste Lauf zu initialisieren und nicht anhängen, dann jeder andere Lauf, um die Spaltennamen nicht drucken (ich nehme an, diese sind die gleichen für jede Tabelle).