# NOT RUN {
data(simdata)
xx <- simdata[,-1]
yy <- simdata[,1]
# Screen for 50 covariates
sidx <- pocrescreen(yy,xx,maxvar=50)
# Screen for 50 additional covariates besides the first 10
xinc <- 1:10
sidx <- pocrescreen(yy,xx,maxvar=50,x.include=xinc)
sidx <- c(xinc,sidx)
# }
Run the code above in your browser using DataLab