r - glmnet 模型输入的函数错误

Question

我需要创建一个函数，该函数将 glm 泊松模型作为输入并返回配给偏差/自由度。我用 glmnet 包试过这个：

functionGLM <- function(x,y,z) {
x<- glm(y~.,data=z,family="poisson")
return(deviance(x)/x$df.residual)
}

然而，它产生的比率与模型 (x) 中的不正确，它也需要 y 变量。你知道我该如何解决这个问题，或者是否有更好的方法来创建这个函数？