Compute the log loss/cross-entropy loss.

1 | ```
Poisson_LogLoss(y_pred, y_true)
``` |

`y_pred` |
Predicted labels vector, as returned by a model |

`y_true` |
Ground truth (correct) labels vector |

Log loss/Cross-Entropy Loss

1 2 3 4 5 | ```
d_AD <- data.frame(treatment = gl(3,3), outcome = gl(3,1,9),
counts = c(18,17,15,20,10,20,25,13,12))
glm_poisson <- glm(counts ~ outcome + treatment,
family = poisson(link = "log"), data = d_AD)
Poisson_LogLoss(y_pred = glm_poisson$fitted.values, y_true = d_AD$counts)
``` |

Questions? Problems? Suggestions? Tweet to @rdrrHQ or email at ian@mutexlabs.com.

All documentation is copyright its authors; we didn't write any of that.