This function generates the Diss coefficient, the difference between observed relative frequencies and estimated (theoretical) probabilities.

Diss(mod)

Arguments

mod

object of class "cub".

Examples

# 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)