Wie ersetzt man Elemente in bestimmten Spalten einer Matrix?

Question

Ich habe eine große Matrix (500-Reihe von 30000-Spalte) von Nullen und Einsen. Dazu habe ich Zeile 501 mit Werten zwischen 0 und 1 angehängt. Wenn der Wert in Zeile 501 für Spalte x> 0,5 ist, möchte ich alle Nullen durch Einsen und alle Einsen durch Nullen in dieser Spalte ersetzen. Ich habe den Code unten implementiert:

for(x in 1:30000){ 
    if (matrix[501,x] > 0.5){ 
    for(y in 1:500){ 
     matrix[matrix[y,x]==1] <- 0 
     matrix[matrix[y,x]==0] <- 1 
    } 
    } 
} 
matrix 

Dieser Code läuft kontinuierlich, und ich habe vor dem Anhalten es so lange wie 2 Stunden weg, so dass ich nicht eine Fehlermeldung zu berichten. Wie kann ich das aufräumen? Was mache ich falsch?

Answer 1

Sie können 0 -> 1 und 1 -> 0 zusammen spiegeln, indem Sie x <- 1 - x verwenden.

So würde man

toFlip <- matrix[501,] > 0.5 
matrix[1:500, toFlip] <- 1 - matrix[1:500,toFlip]