从R乳胶打印冷物体时的位数

Question

我正在尝试获取条件索引表的乳胶表。最小的工作示例如下。它可以打印，但是它给出了大量的数字（无论我写到屏幕还是文件，即使我设置了选项（数字= 3）。

library(perturb)
library(Hmisc)

set.seed(1234)
x1 <- rnorm(1000)
x2 <- x1 + rnorm(1000,0,0.1)
x3 <- x1 + rnorm(1000,0,0.1)
x4 <- x1 + rnorm(1000,0,0.1)
x5 <- x1 + rnorm(1000,0,0.1)

y <- x1 + 2*x2 + 3*x3 + 4*x4 + 5*x5 + rnorm(1000,0, 10)

m1 <- lm(y~x1+x2+x3+x4+x5)

m1
options(digits = 3)
latex(colldiag(m1), file = "")   #c:/writing/nonfiction/glm book/CondIndexEx")

colldiag（m1）本身提供了一个包含三个有效数字的表，这似乎是适当的。

我怎样才能让乳胶做到这一点？