Displaying 1 result from an estimated 1 matches for "cvup".
Did you mean:
cup
2012 May 28
0
GLMNET AUC vs. MSE
...yc <- split(dataS$x, dataS$TotalHours_R)
for (i in 1:length(yc))
{
fit=cv.glmnet(as.matrix(yc[[i]]), y=xc[[i]], alpha=.05, type="mse",
nfolds=10, standardize=TRUE,family="binomial")
c_output =
c(i,fit$cvlo[fit$lambda==fit$lambda.1se],fit$cvm[fit$lambda==fit$lambda.1se],
fit$cvup[fit$lambda==fit$lambda.1se])
names(c_output) = names(output_x)
output_x = rbind(output_x, t(c_output))
fit1=cv.glmnet(as.matrix(yc[[i]]), y=xc[[i]], alpha=.05, type="auc",
nfolds=10, standardize=TRUE,family="binomial")
c_output1 =
c(i,fit1$cvlo[fit1$lambda==fit1$lambda.1se],fit...