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”之类的行名称，但请注意，它们没有排序（在对数据框进行一些行重新排序后尤其如此）。