sparselink (version 1.0.0)

calc_metric: Calculate deviance

Description

Calculates Gaussian deviance (mean-squared error) and binomial deviance.

Usage

calc_metric(y, y_hat, family)

Value

Returns the deviance (scalar).

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)

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)