조건부 확률

Question

나는이 세트를 가지고 :

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

코드 : 내가 함께 선택이 끝난 객체 확률 조건 테이블로 r03를 선택하는 경우, 예를 들어, 조건부 확률을 얻을 필요가

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) 

r01은 다음과 같습니다.

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

기타 예 : 내가 r03를 선택하고 r02을 평가하는 경우 :

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

나는이 테이블을 구현하는 방법을 모르거나 그냥이 행렬 값을하지 않습니다.

Answer 1

난 당신이 찾고있는 생각 :

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) 

또한 추가 할 수있는 몇 가지 rownames 내가 colnames

편집 : 열로 고정 확률 생성 매트릭스 답변에 대한