小编Sum*_*eek的帖子

我想添加第1列:矩阵的i来获得每个的累积总和.然后将结果放在另一个矩阵中

所以喜欢:

matrix
    [,1] [,2] [,3] [,4] [,5]
[1,]  A   B    C    D    E
[2,]  F   G    H    I    J
[3,]  K   L    M    N    O
[4,]  P   Q    R    S    T

成为:

newmatrix
    [,1]  [,2] [,3]     [,4]     [,5]
[1,]  A   A+B  A+B+C  A+B+C+D  A+B+C+D+E  
[2,]  F   F+G  F+G+H  F+G+H+I  F+G+H+I+J
[3,]  K   K+L  K+L+M  K+L+M+N  K+L+M+N+O
[4,]  P   P+Q  P+Q+R  P+Q+R+S  P+Q+R+S+T

我的代码包含一个命令来运行它是必不可少的,但它最终显示在控制台命令的结果,我曾尝试使用suppressWarnings(),suppressMessages(),invisible()和sink(),但所有这些仍然显示的结果.

这是一个示例数据集,问题源自:

M<-c(1111,1222,1333,1444,1555,1666,1777,2223,6654,9867,1123,1456,2436,6875)
fstAdi <- ets(ts(rep(M,length = length(M)), deltat= 1/4, start = c(8,1)), model = "AAA", damped = FALSE, opt.crit = "mae", ic="aic", lower = c(0, 0, 0, 0), upper = c(0.999, 0.999, 0.999, 0.999), bounds = "admissible", restrict = FALSE)
mae11Ad<-summary(fstAdi)[,"MAE"]

上面代码的最后一行始终显示控制台中的摘要,当报告导致问题自动执行此操作时.有没有人知道可以阻止这种情况发生的命令？

谢谢

我已经找到了一种在自动化报告时隐藏它的方法,但是如果有人知道如何隐藏它而只是运行代码以使流程更快,那么无论如何这将是非常有用的:)