0
使用插入程序包时,我无法使用以下用户定义的汇总函数工作。它应该计算logloss,但我一直得到没有找到logloss。下面,重复的例子:用户自定义总结插入符号中的函数
data <- data.frame('target' = sample(c('Y','N'),100,replace = T), 'X1' = runif(100), 'X2' = runif(100))
log.loss2 <- function(data, lev = NULL, model = NULL) {
logloss = -sum(data$obs*log(data$Y) + (1-data$obs)*log(1-data$Y))/length(data$obs)
names(logloss) <- c('LL')
logloss
}
fitControl <- trainControl(method="cv",number=1, classProbs = T, summaryFunction = log.loss2)
my.grid <- expand.grid(.decay = c(0.05), .size = c(2))
fit.nnet2 <- train(target ~., data = data,
method = "nnet", maxit = 500, metric = 'LL',
tuneGrid = my.grid, verbose = T)
这是完美的!非常感谢你,我遇到了两个错误,所以感谢你注意到后续问题 – dleal
欢迎你。检查编辑其他注意事项。 – missuse