R脚本中summary命令无输出但命令行正常的问题求助

我之前也碰到过一模一样的情况！核心原因其实是交互式环境和脚本环境的输出逻辑不一样：在R命令行的交互式模式里，会自动打印最后一行代码的返回结果，但脚本是非交互式的，所有需要显示的内容都得你主动调用打印函数才行。

针对你的代码，只需要做一个小改动就能解决：

方案1：显式调用print()函数 #

把原来的summary(e1)改成：

print(summary(e1))

这样脚本执行时就会强制输出模型的汇总结果了。

方案2：先赋值再打印（可选，方便后续复用结果） #

如果之后还需要用到这个汇总结果，可以先把它存成变量再打印：

e1_summary <- summary(e1)
print(e1_summary)

额外验证建议 #

如果改完还是没输出，可以先打印下拟合好的模型对象e1，确认模型确实成功拟合了：

print(e1)

不过根据你说命令行能正常执行，大概率还是输出触发的问题，这个验证只是用来排除模型拟合失败的可能性。

修改后的完整脚本示例：

library("statnet")
# Simple example using a 3-node network
n <- network.initialize(3, directed=T) # generate an empty 3 node network
n[1,2] <- 1 # assign a single link between node 1 and node 2
gplot(n) # plot the network
e1 <- ergm(n~edges) # conduct an ergm using only the edges term
# 显式打印模型汇总结果
print(summary(e1))

内容的提问来源于stack exchange，提问作者Nathan