处理R中具有不等长度行的矩阵

Question

我想分割两个矩阵：numer1和denom1。问题是它们的行长不等。该脚本每周运行一次，因此维度也每周更改一次。

本周：

dim(numer1) = 998 rows, 99 columns 

dim(denom1) = 997 rows, 99 columns. 

上周：

dim(numer1) = 999 rows, 99 columns 

dim(denom1) = 998 rows, 99 columns.

有没有办法比较这些矩阵并删除较大矩阵中的最后一行（在本例中为numer1）？

以下是我的尝试：

fun1 <- as.data.frame(abs(numer1[-last(numer1),]/denom1))

谢谢！

Answer 1

这个怎么样：

rows <- 1:pmin(nrow(numer1), nrow(denom1))
frac1 <- numer1[rows,] / denom1[rows,]