## -----------------------------------------------------------------------------
library(RCT2)
data(india)
india$id <- factor(india$id)

## -----------------------------------------------------------------------------
rand <- CADErand(india, 0.95) 
print(rand)

## -----------------------------------------------------------------------------
rand$CADE

## -----------------------------------------------------------------------------
reg <- CADEreg(india, ci.level = 0.90)
print(reg)

## -----------------------------------------------------------------------------
reg$CADE1

## -----------------------------------------------------------------------------
paramreg <- CADEparamreg(india, assign.prob = 0.8, ci.level = 0.95)
print(paramreg)
print(paramreg)[[1]]