Schreiben binary-Datei in R

Ich gebeten werde, zu schreiben R-Ausgabe in zwei binäre Dateien, eine index-Datei und eine Haupt-Daten-Datei. Es wird eine matrix/Blocks, die der jeweiligen id in der index-Datei. Ich habe gelesen, über das schreiben von Binär-Dateien in R auf dem internet, aber ich bin nicht sicher, wie Sie das format angeben, so dass ich dies auch erreichen-format?

Außerdem können wir angeben, kurze ganze Zahl in R? Er sagte, er will die numebers kurz intergets (zwei bytes) und ich will nicht, was das bedeutet.

Ich freue mich über jeden input! Dank

  • Eine schnelle Suche mit [r] binary file auf StackOverflow zeigt die folgende, sehr ähnliche Frage: stackoverflow.com/q/1635278/602276
  • Wie @mdsummer schreibt, können Sie angeben, wie Sie schreiben, ganze zahlen der Größe 2, aber das problem Aussage ist ziemlich vage. Ist die matrix der Daten, ganze zahlen oder sind die ids Ganzzahlen? Oder vielleicht die ids sind Zeichenketten?
  • Herzlich willkommen auf StackOverflow! Wenn man sich die Antwort hier, was Sie benötigen, markieren Sie es als Antwort. Andernfalls aktualisieren Sie Ihre Frage zu klären, was Sie brauchen. Sollten Sie auch upvote Antworten (und Fragen), die Sie mögen. Klicken Sie einfach auf den Punktestand oben Links!
InformationsquelleAutor vanilli | 2011-08-08
  1. 4

    Da Sie nicht angegeben haben das problem sehr deutlich, machte ich einige Annahmen, die im Beispiel-code unten. Gegeben eine Liste von Matrizen, es spart Ihnen eine .bin - Datei und erstellt eine .idx - Datei mit offsets. Sie können dann laden Sie Sie zurück in wieder einem index. Das 2-byte-Größe, die Sie erwähnt ist nicht verwendet - es speichert die matrix-Daten 8-byte-Doppel-oder-4-byte-Ganzzahlen (aber man könnte das ändern).

    Hier ist, wie es verwendet wird:

    mtx <- list(matrix(1:12,4), matrix(sin(1:12),4))
saveMatrixList("c:/foo", mtx)

loadMatrix("c:/foo", 1)
loadMatrix("c:/foo", 2)

    ...und hier sind die Funktionen:

    saveMatrixList <- function(baseName, mtxList) {
    idxName <- paste(baseName, ".idx", sep="")
    idxCon <- file(idxName, 'wb')
    on.exit(close(idxCon))

    dataName <- paste(baseName, ".bin", sep="")
    con <- file(dataName, 'wb')
    on.exit(close(con))

    writeBin(0L, idxCon)

    for (m in mtxList) {
        writeBin(dim(m), con)
        writeBin(typeof(m), con)
        writeBin(c(m), con) 
        flush(con)

        offset <- as.integer(seek(con))
        cat('offset', offset)
        writeBin(offset, idxCon)
    }

    flush(idxCon)
}

loadMatrix <- function(baseName = "data", index) {
    idxName <- paste(baseName, ".idx", sep="")
    idxCon <- file(idxName, 'rb')
    on.exit(close(idxCon))

    dataName <- paste(baseName, ".bin", sep="")
    con <- file(dataName, 'rb')
    on.exit(close(con))

    seek(idxCon, (index-1)*4)
    offset <- readBin(idxCon, 'integer')

    seek(con, offset)
    d <- readBin(con, 'integer', 2)
    type <- readBin(con, 'character', 1)
    structure(readBin(con, type, prod(d)), dim=d)
}
    InformationsquelleAutor Tommy
  2. 1

    Finden Sie in der Hilfe(writeBin), size = 2 definiert die Zuordnung für jedes element (D. H. eine zwei-byte-integer). Aber wenn Sie nicht wissen, was das bedeutet, werden Sie wahrscheinlich benötigen viel mehr Informationen von Ihrem requester.

    InformationsquelleAutor mdsumner
Schreibe einen Kommentar