R glmnet模型输入的函数中存在错误

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

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

---

functionGLM@YuHao完成，谢谢！我不希望公式中的替换顺利进行。当您发布这样的问题时，您应该提供一个测试数据集，并提供调用此函数的方式。仅仅说为我做一个函数不会吸引太多的支持。此外，仅将偏差除以剩余自由度并不是一个有效的指示模型拟合。