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