R BMN控制台输出

Question

我正在使用BMNPseudo.single包中的BMN。此函数会生成许多我想要隐藏的输出。我已经尝试了sink，但它不起作用。

library(BMN)
mat<-matrix(rnorm(4),2,2)
BMNPseudo.single(mat,0.02)