R/devero.R

Defines functions devero

Documented in devero

devero <- function(y, mu, sigma2, grados){
  l <- (gamma((grados+1)/2)/(gamma(1/2)*gamma(grados/2)*(grados*sigma2)^0.5))*(1+(y-mu)^2/(sigma2*grados))^(-(grados+1)/2)
  l <- log(l)
  return(l)
}

Try the Bayesiantreg package in your browser

Any scripts or data that you put into this service are public.

Bayesiantreg documentation built on May 29, 2024, 6:44 a.m.