在R中实现循环函数与表格：如何修改代码计算不同r对应的D值并制表

原代码存在语法错误（末尾多余]），且未将r与对应D值关联成表格，以下是修正后的完整代码：

library(powerSurvEpi)

# 生成r值序列
r <- seq(from = 0, to = 1, by = 0.1)
# 计算每个r对应的D值，移除原代码末尾多余的]
D <- numDEpi.default(power = 0.8,
                     theta = 5.05,
                     p = 0.44,
                     rho2 = r*r,
                     alpha = 0.05)
# 将r和D组合为表格格式的数据框
result_table <- data.frame(r = r, D = D)
# 打印整洁的表格（不带行号）
print(result_table, row.names = FALSE)

补充说明 #

• 代码通过data.frame()将r序列与计算得到的D向量绑定，直接生成结构化表格；
• 若需要更美观的格式化表格，可借助knitr包的kable()函数优化输出：

library(knitr)
kable(result_table, caption = "不同r值对应的D值")

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