R：贴现成本矩阵

我有一个成本矩阵，我想根据贴现率x进行贴现。每一列都是唯一的疾病状态，每一行都是唯一的年份。目前我正在使用以下代码：

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

我使用

作为.integer（rownames（medexpCommercial）

试图获取行索引号。有人知道我可以使用另一种方法来获取行索引号，以便在贴现公式中使用吗？或者使用另一种方法来贴现矩阵中的成本吗？

不要使用

as.integer(rownames(medexpCommercial))

使用

---

后者总是有效的，而第一个是错误的。如果你有“A”、“B”、“C”这样的行名怎么办？即使你有“1”、“3”、“2”这样的行名，但是你看，它们没有排序（尤其是在数据帧的行重新排序之后）。

因为它们使用的是矩阵，

行（m）

，可能是另一种选择，而不是回收，如

m/（1+dr）^row（m）

seq_len(nrow(medexp‌​Commercial))