Lincoln <- matrix(c( 0.007744, 0, 0, 0, 0, 0, 0, 0.000635,0.000400, 0, 0, 0, 0, 0, 0.052401,0.005077,1.065024, 0, 0, 0, 0, 0.006624,0.001471,0.066069,0.037636, 0, 0, 0, 0.054564,0.012024,0.823108,0.137249,1.809025, 0, 0, 0.084675,0.015990,1.131609,0.171958,2.025220,2.496400, 0, 0.103616,0.019572,1.325756,0.184820,1.969703,2.567911,2.989441), 7, 7, byrow=TRUE) rownames(Lincoln) <- colnames(Lincoln) <- c("UnionStaff", "Employment", "logWorkers", "Unionized", "Strikes", "Strikers", "PersonDays")