This function generates the Diss coefficient, the difference between observed relative frequencies and estimated (theoretical) probabilities.
Diss(mod)
mod | object of class |
---|
# Example 1 y <- rcub(n=800, pi=0.30, xi=0.80, m=6) fit1 <- cub(pi.fo=y ~ 1, xi.fo= ~ 1, m=6) Diss(fit1) # Example 2 fit2 <- cub(pi.fo=global ~ gender + lage, xi.fo= ~ residenc + willingn , m=7, data=univer) Diss(fit2)