Displaying 1 result from an estimated 1 matches for "selectedtestx".
2012 May 07
1
estimating survival times with glmnet and coxph
...281
282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299
300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317
318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335
336 337 338 [... truncated]
# take test covariates for which beta is not zero
selectedTestX <- x[1,nonzero.coef]
# find survival curve for test subject
sfit<- survfit(coxph.model,newdata=selectedTestX)
cat("\ntime ")
cat(sfit$time)
cat("\nsurvival ")
cat(sfit$surv)