This function generates I coefficient.

icub(mod)

Arguments

mod

object of cub class.

Examples

# Test 1 

# Generating a random sample given the values of pi and xi

y <- rcub(n=1000, pi=0.2, xi=0.70, m=5)
mod <- cub(pi.fo=y ~ 1, xi.fo=~ 1, m=5)
icub(mod)

y <- rcub(n=100, pi=0.9, xi=0.5, m=10)
mod1 <- cub(pi.fo=y ~ 1, xi.fo=~ 1, m=10)
icub(mod1)