applylogloss.r

library(tidyverse)

# create range of probabilities
probs <- seq(0, 1, 0.001)

# apply log loss over full range of propabilites
t1 <- logloss(1, probs)
t0 <- logloss(0, probs)

# tidy the data
df <- data.frame(probs = probs, actual_0 = t0, actual_1 = t1)
df <- df %>% gather(label, logloss, actual_0, actual_1)
df <- df %>% filter(logloss != Inf)