R中的Summary（模型）输出中的小数位

Question

当我使用nnet包时，我试图从模型摘要输出中获得超过2位小数。我读了关于这个的其他线索，这些解决方案似乎都不适合我。我试过了：

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

摘要返回的对象的print方法很可能是两位小数的来源。作为第一次尝试，请尝试

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

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

How to make decimal digits of chisq.test four numbers ?