pdp (version 0.6.0)

trainCHull: #' @keywords internal avgLogit <- function(x, which.class = 1L) if (is.data.frame(x)) x <- data.matrix(x) stopifnot(is.matrix(x)) # x should be a nclass by n probability matrix eps <- .Machine$double.eps mean(log(ifelse(x[, which.class] > 0, x[, which.class], eps)) - rowMeans(log(ifelse(x > 0, x, eps))), na.rm = TRUE)

Description

#' @keywords internal avgLogit <- function(x, which.class = 1L) if (is.data.frame(x)) x <- data.matrix(x)

stopifnot(is.matrix(x)) # x should be a nclass by n probability matrix eps <- .Machine$double.eps mean(log(ifelse(x[, which.class] > 0, x[, which.class], eps)) - rowMeans(log(ifelse(x > 0, x, eps))), na.rm = TRUE)

Usage

trainCHull(pred.var, pred.grid, train)