如何在R中保存列表对象

我对我的数据进行了coxph，结果如下：

> z Call: coxph(formula = Surv(Years, Event) ~ y, data = x) coef exp(coef) se(coef) z p y 0.0714 1.07 0.288 0.248 0.8 Likelihood ratio test=0.06 on 1 df, p=0.804 n= 65, number of events= 49 fin -0.3794 0.684 0.1914 -1.983 0.0470 age -0.0574 0.944 0.0220 -2.611 0.0090 race 0.3139 1.369 0.3080 1.019 0.3100 wexp -0.1498 0.861 0.2122 -0.706 0.4800 mar -0.4337 0.648 0.3819 -1.136 0.2600 paro -0.0849 0.919 0.1958 -0.434 0.6600 >z 电话： coxph（公式=Surv（年，事件）~y，数据=x） coef exp（coef）se（coef）z p y 0.0714 1.07 0.288 0.248 0.8 似然比检验=0.06对1个df，p=0.804 n=65，事件数=49 我只是想省钱

y 0.0714 1.07 0.288 0.248 0.8 y 0.0714 1.07 0.288 0.248 0.8 归档。因为我做了排列，生成了1000个z

我想将它们保存到如下文本文件中：

> z Call: coxph(formula = Surv(Years, Event) ~ y, data = x) coef exp(coef) se(coef) z p y 0.0714 1.07 0.288 0.248 0.8 Likelihood ratio test=0.06 on 1 df, p=0.804 n= 65, number of events= 49 fin -0.3794 0.684 0.1914 -1.983 0.0470 age -0.0574 0.944 0.0220 -2.611 0.0090 race 0.3139 1.369 0.3080 1.019 0.3100 wexp -0.1498 0.861 0.2122 -0.706 0.4800 mar -0.4337 0.648 0.3819 -1.136 0.2600 paro -0.0849 0.919 0.1958 -0.434 0.6600 鳍-0.3794 0.684 0.1914-1.983 0.0470 年龄-0.0574 0.944 0.0220-2.611 0.0090 赛道0.3139 1.369 0.3080 1.019 0.3100 wexp-0.1498 0.861 0.2122-0.706 0.4800 三月-0.4337 0.648 0.3819-1.136 0.2600 帕罗-0.0849 0.919 0.1958-0.434 0.6600 有人能帮忙吗

---

谢谢

这些系数很容易通过

summary(z)[['coefficients']]

以及置信区间信息

summary(z)[['conf.int']]

了解

summary.coxph

对象的组件

str(summary(z))

我的建议是创建一个排列列表

data_list <- list(data_1, ...., data_1000)

---

数据列表非常感谢。如果我想保存exp（coef）exp（-coef）lower.95 upper.95y 1.074 0.9311 0.6105 1.889。如何保存它。我的意思是，当我使用summary（z）时，我可以得到两个信息：coef exp（coef）se（coef）zpr（>|z|）y 0.07137 1.07398 0.28817 0.248 0.804和exp（coef）exp（-coef）lower.95 upper.95 y 1.074 0.9311 0.6105 1.889 summary（z）[‘系数’]可以保存第一个，但我也想保存第二个。谢谢天哪，非常感谢。但是我可以问一下你在哪里找到数据的名称吗。我不知道怎么找到它。我检查了？coxph，但没有任何发现。
all_coefficients <- lapply(lots_summaries, '[[', 'coefficients')
all_conf.int     <- lapply(lots_summaries, '[[', 'conf.int')

all_coefs_id <- lapply(seq_along(data_list), 
   function(i) cbind(all_coefficients[[i]],i))
all_ci_id <- lapply(seq_along(data_list), 
   function(i) cbind(all_conf.int[[i]],i))

all_coefs_df <- do.call(rbind, all_coefs_id)
all_ci_df <- do.call(rbind, all_ci_id)