data(Lung)
X <- Lung$X
y <- Lung$y
cvfit <- cv.ncvsurv(X, y, returnY=TRUE)
head(AUC(cvfit))
ll <- log(cvfit$fit$lambda)
plot(ll, AUC(cvfit), xlim=rev(range(ll)), lwd=3, type='l',
xlab=expression(log(lambda)), ylab='AUC')
Run the code above in your browser using DataLab