Skip to contents

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