seed=10000
n=100
y=rbinom(n,1,0.4)
p=50
x=matrix(rnorm(n*p),n,p)
penalty="mcp"
nkappa=5
maxkappa=0.249
nlambda=20
cv=5
path="kappa"
out=auc.cvplogistic(cv,y,x,penalty,path,nkappa,maxkappa,nlambda)
path="lambda"
out=auc.cvplogistic(cv,y,x,penalty,path,nkappa,maxkappa,nlambda)
path="hybrid"
out=auc.cvplogistic(cv,y,x,penalty,path,nkappa,maxkappa,nlambda)
penalty="scad"
maxkappa=0.19
path="kappa"
out=auc.cvplogistic(cv,y,x,penalty,path,nkappa,maxkappa,nlambda)
path="lambda"
out=auc.cvplogistic(cv,y,x,penalty,path,nkappa,maxkappa,nlambda)
path="hybrid"
out=auc.cvplogistic(cv,y,x,penalty,path,nkappa,maxkappa,nlambda)Run the code above in your browser using DataLab