Displaying 1 result from an estimated 1 matches for "scoring_data".
2012 Jan 17
1
Scoring using cox model: probability of survival before time t
...rain <- predictProb.coxph(fit_coxph, Surv(train_sample$time,
train_sample$event), train_sample, 0.4)
head(pred_train)
# [,1]
#[1,] 5.126281e-03
#[2,] 4.324882e-01
#[3,] 4.444506e-61
#[4,] 0.000000e+00
#[5,] 0.000000e+00
#[6,] 3.249947e-01
#In the same line, I need probabilities on scoring_data. Now, close the
earlier session and run the below script in the new #R session, it gives
error.
library(survival)
library(peperr)
load(file = file.path("C:/Desktop","fit_coxph.RData"))
n = 1000
set.seed(1)
x1 = rnorm(n,0)
x2 = rnorm(n,0)
score_data <- data.frame(x1...