Calculates Gaussian deviance (mean-squared error) and binomial deviance.
Usage
calc.metric(y, y_hat, family)
Arguments
- y
response
- y_hat
predictor
- family
character "gaussian" or "binomial"
Examples
n <- 100
family <- "gaussian"
y <- stats::rnorm(n=n)
y_hat <- stats::rnorm(n=n)
calc.metric(y=y,y_hat=y_hat,family=family)
#> [1] 2.170289
family <- "binomial"
y <- stats::rbinom(n=n,size=1,prob=0.5)
y_hat <- stats::runif(n=n)
calc.metric(y=y,y_hat=y_hat,family=family)
#> [1] 0.9851105