Bedingte Wahrscheinlichkeit mit Binärgrößen

Question

Ich habe diesen Satz:

1 2 3 4 
r01 1 0 1 1 
r02 1 1 0 1 
r03 0 0 1 0 
r04 0 0 1 0 

Der Code:

initial <- data.frame(c(1,1,0,0), c(0,1,0,0), c(1,0,1,1),c(1,1,0,0), row.names = c("r01","r02","r03","r04")) 
colnames(initial) <- c(1:4) 

Ich brauche bedingte Wahrscheinlichkeit zu erhalten, zum Beispiel, wenn ich r03 als gewähltes Objekt Wahrscheinlichkeit bedingte Tabelle wähle mit r01 wird sein:

  |r03=0 |r03=1 
    r01=0 | 1/3 | 0/1 
    r01=1 | 2/3 | 1/1 

Andere Beispiel, wenn ich wählen r03 und bewerten r02:

  |r03=0 |r03=1 
    r02=0 | 0/3 | 1/1 
    r02=1 | 3/3 | 0/1 

Ich weiß nicht, wie diese Tabelle zu implementieren oder einfach nur diese Matrix Werte erhalten.

Answer 1

Ich denke, dass Sie für diesen suchen:

initial <- data.frame(c(1,1,0,0), c(0,1,0,0), c(1,0,1,1),c(1,1,0,0), row.names = c("r01","r02","r03","r04")) 
colnames(initial) <- c(1:4) 

tin <- data.frame(matrix(t(initial), ncol = 4, byrow = FALSE)) 
colnames(tin) <- rownames(initial) 

tab <- table(tin$r01, tin$r03) #here specify values and get count 
prop.table(tab,2) 

Sie auch einig rownames i colnames

EDIT hinzufügen: Fest Wahrscheinlichkeit und erstellte Matrix von Spalten