# \donttest{
library(actuaRE)
# Vignette of the package
vignette(package = "actuaRE")
# Load data
data(hachemeisterLong)
data(dataCar)
# Hierarchical credibility model of Jewell
fit = hierCredibility(ratio, weight, cohort, state, hachemeisterLong)
# Combination of the hierarchical credibility model with a GLM (Ohlsson, 2008)
fit = hierCredGLM(Y ~ area + (1 | VehicleType / VehicleBody), dataCar, weights = w,
p = 1.7)
# }
Run the code above in your browser using DataLab