```
# 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))
m
# direction default is "symmetric"
UncertCoef(m)
UncertCoef(m, conf.level=0.95)
UncertCoef(m, direction="row")
UncertCoef(m, direction="column")
```

Run the code above in your browser using DataLab