R中Summary(model)输出中的小数位数

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 

对我来说，这些解决方案都不起作用。如果我在摘要输出之后使用capture.output，则可以得到更多的小数位数，但是如果我输出整个模型或使用coefnames，也可以得到超过2位小数，但这对我没有帮助。

- user16789

---

请提供您生成模型的代码，并告诉我们您对模型（拟合值、残差等）中哪些值感兴趣。 - Stat Tistician

options(digits=10) model = nnet(y ~ x1 + x2 + x3 + x4 + x5, data, size=2,decay=0.01, softmax=TRUE) summary(model) 这就是我代码中的全部内容。当使用summary(model)时，我希望显示更多小数位数的权重值。谢谢。 - user16789

Answer 1

很可能是由summary返回的对象的print方法导致了两个小数位。作为第一次尝试，请尝试：

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

如果那不起作用，请尝试这个答案中所做的调查类型：如何使卡方检验的小数位数为四个数字？

- Glen_b

Answer 2

只需使用

summary(model)$wts

这将给出具有最大小数点的权重。

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

只需编写summary（model），然后$，再加上例如wts获取权重或例如残差以获取残差。

- Stat Tistician

---

这个可行。但现在我必须捕获输出 summary(model) 和 summary(model)$wts，然后将它们合并以完成我想要做的事情。谢谢。 - user16789