"census.1910" <-
structure(c(314, 27, 4, 26, 3, 1, 1, 1, 63, 625, 9, 26, 6, 0, 
0, 0, 10, 2, 835, 10, 0, 0, 0, 0, 15, 5, 20, 1096, 4, 7, 1, 1, 
0, 0, 1, 0, 477, 0, 0, 0, 1, 0, 0, 4, 1, 421, 1, 1, 1, 0, 0, 
0, 0, 0, 112, 30, 0, 0, 0, 0, 0, 0, 11, 347), .Dim = c(8, 8), .Dimnames = structure(list(
    wife = c("B", "AR", "C", "Be", "It", "Po", "CA", "ED"), husband = c("B", 
    "AR", "C", "Be", "It", "Po", "CA", "ED")), .Names = c("wife", 
"husband")))