R/guess-category.R

# Predict the category of a new observation
# @param nn A probabilistic neural network already trained
# @param X A vector describing a new observation
guess.category <- function(nn, X) {
    probs <- guess.probabilities.of.each.category(nn, X)
    if(is.na(probs[1])) return(NA)
    category <- names(probs[probs == max(probs)])
    return(category)
}

Try the pnn package in your browser

Any scripts or data that you put into this service are public.

pnn documentation built on May 2, 2019, 9:30 a.m.