if (interactive()) {
# example from Goodman Kruskal (1954)
m <- as.table(cbind(c(1768,946,115), c(807,1387,438), c(189,746,288), c(47,53,16)));
dimnames(m) <- list(paste("A", 1:3), paste("B", 1:4));
print(m)
calc.UC(m); # default is direction = "symmetric"
calc.UC(m, conf.level=0.95); # direction "symmetric"
calc.UC(m, direction="column");
}
Run the code above in your browser using DataLab