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"