| occupationalStatus <- | |
| matrix(as.integer(c(50, 16, 12, 11, 2, 12, 0, 0, | |
| 19, 40, 35, 20, 8, 28, 6, 3, | |
| 26, 34, 65, 58, 12,102, 19, 14, | |
| 8, 18, 66,110, 23,162, 40, 32, | |
| 7, 11, 35, 40, 25, 90, 21, 15, | |
| 11, 20, 88,183, 46,554,158,126, | |
| 6, 8, 23, 64, 28,230,143, 91, | |
| 2, 3, 21, 32, 12,177, 71,106)), | |
| 8, 8, | |
| dimnames = | |
| list(origin = as.character(1:8), | |
| destination= as.character(1:8))) | |
| class(occupationalStatus) <- "table" |