r - R中摘要（模型）输出中的小数位数

Question

当我使用 package.json 时，我试图从模型摘要输出中获得超过 2 位小数nnet。我阅读了有关此的其他线程，但这些解决方案似乎都不适合我。我试过：

options(digits=10)
summary(model)

 b->h1 i1->h1 i2->h1 i3->h1 i4->h1 i5->h1 
  0.94  -2.67   0.83  -1.06  -2.51  -0.69 
 b->o1 h1->o1 
  1.14  -3.41 
 b->o2 h1->o2 
 -0.62   3.92 

我也试过：

summary(model,digits=10)

 b->h1 i1->h1 i2->h1 i3->h1 i4->h1 i5->h1 
  0.94  -2.67   0.83  -1.06  -2.51  -0.69 
 b->o1 h1->o1 
  1.14  -3.41 
 b->o2 h1->o2 
 -0.62   3.92 

这些解决方案都不适合我。我必须caputure.output在汇总输出后使用如果我输出整个模型或使用coefnames我可以获得超过 2 个小数位，但如果我使用caputre.output.

Answer 1

只需使用

summary(model)$wts

这将为您提供具有最大小数点的权重。

如果您想要其他值，例如残差等，请参阅手册，我附上相关部分的屏幕截图：

只需写summary(model)然后$然后例如wts获得权重或例如残差以获得残差

Answer 2

summary 返回的对象的打印方法很可能是两位小数的来源。作为第一次尝试，尝试

print(summary(model),digits=10)   ## or whatever other number of digits

如果这不起作用，请尝试在此答案中进行的那种调查：

如何将 chisq.test 的十进制数字设为四个数字？