r - 如何撤消生存对象(返回数据框)

Question

使用 rms 中的 cph() 生成模型后，调用 model$y 将返回一个生存对象。是否有一个函数可以“撤消”生存对象并返回一个数据框？

我希望能够使用生存对象作为我正在编写的函数的参数，但我还需要响应数据。我试图避免使用数据作为参数并在函数内部创建模型。

下面提供了一个最小的工作示例:

library(rms)
# generate data
time <- c(82, 73, 89, 79, 72, 87, 103, 83, 100, 79)
event <- c(0, 0, 1, 0, 1, 0, 0, 0, 1, 1)
covar <- c(15, 11, 11, 20, 12, 13, 10, 11, 10, 14)
df <- data.frame(time, event, covar)

# Cox model
dd <- datadist(df)
options(datadist = 'dd')
model <- cph(Surv(time, event) ~ covar, x=TRUE, y=TRUE, surv=TRUE, data=df)

# returns a survival object
model$y

# what I want is a data frame
want <- data.frame(time, event)
want

Answer 1

我认为你可以通过使用 as.matrix 得到你想要的:

pl <- as.matrix(model$y)
as.data.frame(pl)