有人可以帮我解决以下问题吗?
我必须用相同的预测因子但不同的结果进行许多统计分析。到目前为止,我设法编写了一个执行分析的脚本。但是我想将分析的输出写成单独的文本文件,结果名称作为文件的名称。
以下是一些测试数据:
subject age sex country race service cancer
1 19 2 2 0 1 0
2 34 2 4 0 0 1
3 36 1 4 0 0 1
4 36 2 7 0 0 1
5 18 1 7 1 0 0
6 34 2 3 0 0 0
7 37 2 3 0 0 1
8 46 1 3 1 0 0
到目前为止,这是我的脚本:
lapply(c("race", "cancer"),
function(var) {
formula <- as.formula(paste(var, "~ age + sex + country"))
res <- lm(formula, data = test)
summary(res)
})
我接下来想要的是变量&#34; race&#34;将创建一个带摘要(res)的单独输出文本文件并命名为#34; race&#34;。还有一个单独的文本文件,名为&#34; cancer&#34;与该分析的摘要(res)。
答案 0 :(得分:1)
您可以尝试以下方法:
lapply(c("race", "cancer"),
function(var) {
formula <- as.formula(paste(var, "~ age + sex + country"))
res <- lm(formula, data = test)
summary(res)
capture.output(summary(res), file = paste(eval(var), ".txt", sep = ""))
})