data(prostate)
X <- as.matrix(prostate[,1:8])
y <- prostate$lpsa
fit <- ncvreg(X, y)
obj <- fir(fit)
obj[1:10,]
# Some plotting options
plot(obj)
plot(obj, type="EF")
plot(obj, log=TRUE)
# Comparison with perm.ncvreg
par(mfrow=c(2,2))
plot(obj)
plot(obj, type="EF")
pmfit <- perm.ncvreg(X, y)
plot(pmfit)
plot(pmfit, type="EF")
## Note that fir() is more conservative
Run the code above in your browser using DataLab