在R中获得加权比例

Question

我使用3个状态（A，B，C）创建了一个转移概率矩阵，如下所示：

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

例如，如果您想获得A - >的概率; B，你会计算你看到B跟随A的次数除以你看到任何状态跟随A的次数。现在假设每一行数据都有一定的权重/重要性。如何修改上述内容以获得加权概率转移矩阵？

Answer 1

你可以这样做......

NSAttributed

其中transition <- prop.table(tapply(data$weight, list(data$old, data$new), sum), 2) 是每行数据的权重列。

带有data$weight的{​​{1}}会重现您所拥有的内容。将其更改为tapply会为每个组合添加权重，而不仅仅计算它们。