R：打折成本矩阵

Question

我有一个成本矩阵我想根据折扣率x折扣。每列都是一种独特的疾病状态，每一行都是独一无二的一年。目前我正在使用此代码：

((medexpCommercial)/((1 + dr)^as.integer(rownames(medexpCommercial))))

我使用as.integer(rownames(medexpCommercial)作为获取行索引号的尝试。有没有人知道我可以使用另一种方法来获得折扣方程中使用的行索引号？或者用另一种方法来折扣矩阵中的成本？

Answer 1

不要使用

as.integer(rownames(medexpCommercial))

使用

seq_len(nrow(medexp‌​Commercial))

后者总是有效，而第一个是有缺陷的。如果你有“A”，“B”，“C”这样的行名怎么办？即使您有“1”，“3”，“2”等行名，但看起来，它们也没有排序（在对数据帧进行一些行重新排序后尤其如此）。