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”这样的行名，但是看，它们没有排序（在你的数据框的一些行重新排序之后尤其如此）。