R：在矩阵的连续列区域上应用函数

您好，我的问题有以下示例矩阵：

              Cats       Dogs     Frogs
2016-12-02  0.9994518  1.025039  1.002728
2016-12-08  1.0490699  1.013039  1.027556
2016-12-05  1.0204215  1.006204  1.059064

我的输出应该是矩阵，它在一列中给出每个时间点的最大值

              Cats       Dogs     Frogs
2016-12-02  0.9994518  1.025039  1.002728
2016-12-08  1.0490699  1.025039  1.027556
2016-12-05  1.0490699  1.025039  1.059064

列和行的数量可能会有所不同。我尝试了很多

重复循环

和

应用（…）

功能，但都不起作用

---

我真的很感激你能提供的任何帮助

我们可以在使用

apply

循环通过列并指定

MARGIN=2

apply(m1, 2, cummax)
#                Cats     Dogs    Frogs
#2016-12-02 0.9994518 1.025039 1.002728
#2016-12-08 1.0490699 1.025039 1.027556
#2016-12-05 1.0490699 1.025039 1.059064

数据

---

m1或
matrixStats:：colCummaxs（m1）
m1 <- structure(c(0.9994518, 1.0490699, 1.0204215, 1.025039, 1.013039, 
1.006204, 1.002728, 1.027556, 1.059064), .Dim = c(3L, 3L), .Dimnames = list(
c("2016-12-02", "2016-12-08", "2016-12-05"), c("Cats", "Dogs", 
"Frogs")))