汇总（模型）输出中的小数位（单位：R）

当我使用

nnet

package时，我试图从模型摘要输出中获得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

只使用

summary(model)$wts

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

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

---

只需编写

summary（model）

然后编写

$

，然后例如

wts

来获取权重，或者例如residuals来获取残差

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

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

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

---

请给出您如何生成模型的代码，并告诉我们您感兴趣的模型值（拟合、残差…）。选项（数字=10）模型=nnet（y~x1+x2+x3+x4+x5，数据，大小=2，衰减=0.01，softmax=TRUE）摘要（模型）是我代码中的全部内容。当我使用summary（model）时显示权重时，我对更多的小数位感兴趣。谢谢，这很有效。但是现在我必须捕获并输出summary（model）和summary（model）$wts，然后合并它们以实现我想要做的事情。谢谢