# Read the table data into a temporary matrix
rawdata <- matrix(c(
    1, 1, 1,  10,
    1, 1, 2,  40,
    1, 2, 1,  18,
    1, 2, 2, 132,
    1, 3, 1,   8,
    1, 3, 2, 192,
    2, 1, 1,  40,
    2, 1, 2, 160,
    2, 2, 1,  18,
    2, 2, 2, 132,
    2, 3, 1,   2,
    2, 3, 2,  48), ncol=4, byrow=TRUE)

# Read the matrix data into a dataframe, and label the factors
scouting <- data.frame(scout  = factor(rawdata[,1], labels=c("Yes", "No")),
                       church = factor(rawdata[,2], labels=c("Low", "Medium", "High")),
                       delinq = factor(rawdata[,3], labels=c("Yes", "No")),
                       n = rawdata[,4])