在 asreml-R 中拟合模型时隐藏信息

Question

我正在使用asreml-R包进行分析。每当我存储一个拟合的模型对象时，asreml-R都会提供一些我想隐藏的额外信息。请参阅下面的代码和信息：

library(asreml)
dat <- data.frame(y=rnorm(20),x=seq(1,20))
ex.asr <- asreml(y ~ x, data=dat)
asreml(): 3.0.1 Library: 3.01gl IA32  Run: Wed May 30 13:26:44 2012
     LogLik         S2      DF
    -11.3850      0.7691    18  13:26:44
    -11.3850      0.7691    18  13:26:44
Finished on: Wed May 30 13:26:44 2012
LogLikelihood Converged 

如果您帮助隐藏这些额外信息，我将不胜感激。请记住，asreml-R不是开源的。谢谢

Answer 1

使用 asreml 的控制内容 - asreml.control()函数控制 asreml 调用的许多方面，您可以直接向 asreml 调用提供其参数，在您想要trace=F的情况下，例如

library(asreml)
dat <- data.frame(y=rnorm(20), x=seq(1,20))
ex.asr <- asreml(y ~ x, data=dat, trace=F)

Answer 2

如果asreml-R设计得很好，那么在命令周围放置suppressMessages()应该可以。否则我会建议

sink("junk.txt")
## asreml command
sink()

Answer 3

如果（看起来）这是正在print()的东西，您可以使用capture.output()将其下沉到临时文件中。

下面是一个示例：

plot(rnorm(99))
capture.output({
    lapply(1:4, function(X) abline(v=20*X))
}, file = tempfile())
## Here's the output that was sunk by `capture.output()`
## (wrapping the call in `suppressMessages()` won't get rid of those "NULL"s)
lapply(1:4, function(X) abline(v=20*x))
[[1]]
NULL
[[2]]
NULL
[[3]]
NULL
[[4]]
NULL