Скрытие выход из консоли

Question

Мой код содержит команду, которая необходима для того, чтобы бежать, однако в конечном итоге показывает результат этой команды в консоли, я пытался использовать 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"] 

Последняя строка кода выше всегда показывает сводку в консоли, которая при автоматизации этого для отчета вызывает проблемы. Кто-нибудь знает о команде, которая может остановить это?

Thankyou

Я нашел способ, чтобы скрыть это автоматизируя отчет, но если кто-нибудь знает, как это скрыть, а просто запустить код, чтобы сделать процесс быстрее, то это было бы очень полезно в любом случае :)

Answer 1

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) 
sink(tempfile()) 
mae11Ad<-summary(fstAdi)[,"MAE"] 
sink() 

Answer 2

Я знаю, что, вероятно, выглядит как подход плохой стиль, но это, кажется, работает

sink(tempfile()) 
mae11Ad<-summary(fstAdi)[,"MAE"] 

Answer 3

Метод резюме для ets объектов немного многословен:

> forecast:::summary.ets 
function (object, ...) 
{ 
    print(object) 
    cat("\nTraining set error measures:\n") 
    print(accuracy(object)) 
} 
<bytecode: 0x161d31c8> 
<environment: namespace:forecast> 

Это довольно плохой стиль, итоговые методы должны возвращать объект с классом, и метод печати для этого класса должен выдавать результат.

Таким образом, вы можете просто вызвать метод accuracy вашего объекта:

> accuracy(fstAdi)[,"MAE"] 
[1] 1971.468 

, который имеет то преимущество, не нуждаясь утечки продукции и является более удобным для чтения.