2017-08-02 65 views
1

加權比例我已經建立使用3種狀態(A,B,C)如下的轉移概率矩陣:獲取中的R

transition <-prop.table(with(data, table(data$old, 
       data$new)), 2) 

例如,如果你想獲得對於A的概率 - > B,你會計算你看到B遵循A的次數,並將它除以你看到任何狀態遵循A的次數。現在假設每一行數據都有一定的權重/重要性。我將如何修改上述以獲得加權概率轉換矩陣?

回答

0

你可以這樣做......

transition <- prop.table(tapply(data$weight, list(data$old, data$new), sum), 2) 

其中data$weight爲權數,以每行數據的列。

tapplylength將重現您擁有的。將其更改爲sum將爲每個組合添加權重,而不僅僅是對它們進行計數。