SHARE
TWEET

Untitled

a guest Jun 19th, 2017 48 in 25 days
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. base <- basehaz(base.coxmodel)
  2.  
  3. pred <- predict(base.coxmodel,type="lp",data=data.test$baselinedata)
  4.  
  5. mean(base[base$time==500,1]*exp(pred))
RAW Paste Data
Pastebin PRO Summer Special!
Get 40% OFF on Pastebin PRO accounts!
Top