R cv中的成本函数。当模型的截止值不为0.5时，拟合逻辑模型的glm

我有一个配备以下R功能的物流模型：

glmfit<-glm(formula, data, family=binomial)

由于拟合模型中的响应为二元变量，因此适当的成本函数为（从？cv.glm“示例”部分获得）：

成本0.5）

---

由于我的截止值为0.2，我可以应用这个标准成本函数吗？或者我应该定义一个不同的成本函数，以及如何定义？

在stats.stackexchange.com上可能更好谢谢。我会把它贴在那里。

cv.glm(data, glmfit, cost, K)

cost <- function(r, pi = 0) mean(abs(r-pi) > 0.5)