data(GBSG)
f <- mfp(Surv(rfst, cens) ~ fp(age, df = 4, select = 0.05)
+ fp(prm, df = 4, select = 0.05), family = cox, data = GBSG)
par(mfrow=c(2,2), mar=c(4,4,1,1), mgp=c(1.5,0.75,0))
plot(f, var="age")
Run the code above in your browser using DataLab