"sectors" <-
structure(c(2000, 100, 300, 100, 100, 300, 800, 400, 500, 200, 
600, 300, 2600, 600, 1700, 800), .Dim = c(4, 4), .Dimnames = list(
    c("North", "South", "East", "West"), c("Primary", "Manufacturing", 
    "Service", "Total Employment")))