if (FALSE) {
tab <- matrix(c(165,49,70,100,48,223,
6,201,226,212,90,216,
4,96,446,214,72,77,
5,84,305,317,126,188,
3,52,151,190,110,189,
17,234,310,601,309,1222),
nrow = 6, ncol = 6, byrow = TRUE)
newtab <- quasindep(tab)
}
Run the code above in your browser using DataLab