做lasso回归时为什么%dev值大于1？

Question

library(car)
library(corrplot)
library(glmnet)
data <- read.csv('f:\\r file\\VIPS.csv',header = TRUE)
set.seed(123)
index <-  sort(sample(nrow(data), nrow(data)*.7))
train <- data[index,]
test <-  data[-index,]
x <- as.matrix(train[, 1:95])
y <- train[, 96]
lasso <- glmnet(x, y, family="gaussian",alpha=1)
print(lasso)
plot(lasso,label=TRUE)
plot(lasso,xvar="lambda",label=TRUE)

Answer 1

你好，我是有问必答小助手，非常抱歉，本次您提出的有问必答问题，技术专家团超时未为您做出解答


本次提问扣除的有问必答次数，将会以问答VIP体验卡（1次有问必答机会、商城购买实体图书享受95折优惠）的形式为您补发到账户。


因为有问必答VIP体验卡有效期仅有1天，您在需要使用的时候【私信】联系我，我会为您补发。