R/hawaii.R

hawaii <- matrix(c(1, 690, 2, 276, 3, 157, 4, 121, 5, 93, 6, 73, 7, 66, 8, 52, 9, 51, 10, 39, 11, 31, 12, 36, 13, 21, 14, 22, 15, 32, 16, 21, 17, 19, 18, 15, 19, 17, 20, 13, 21, 19, 22, 13, 23, 11, 24, 13, 25, 13, 26, 15, 27, 9, 28, 12, 29, 7, 30, 10, 31, 6, 32, 8, 33, 2, 34, 17, 35, 7, 36, 8, 37, 3, 38, 7, 39, 9, 40, 4, 41, 5, 42, 7, 43, 4, 44, 3, 45, 1, 46, 4, 47, 3, 48, 4, 49, 3, 50, 4, 51, 3, 52, 6, 53, 6, 54, 1, 55, 2, 56, 4, 57, 3, 58, 4, 59, 4, 60, 4, 61, 4, 62, 4, 63, 1, 65, 2, 67, 5, 68, 2, 69, 2, 70, 7, 71, 2, 72, 3, 73, 2, 74, 6, 75, 2, 76, 3, 77, 2, 78, 1, 79, 2, 80, 3, 81, 3, 82, 1, 83, 2, 84, 1, 86, 3, 87, 2, 88, 1, 90, 4, 91, 3, 92, 1, 94, 1, 95, 1, 96, 1, 97, 1, 98, 2, 99, 2, 100, 3, 101, 2, 102, 1, 104, 1, 105, 2, 107, 1, 108, 2, 109, 3, 111, 1, 113, 2, 114, 2, 115, 1, 116, 1, 120, 1, 121, 1, 123, 1, 128, 2, 133, 2, 136, 3, 137, 1, 138, 1, 139, 2, 140, 1, 143, 1, 144, 1, 145, 2, 146, 1, 149, 1, 150, 2, 152, 2, 156, 2, 157, 1, 161, 1, 162, 1, 163, 1, 165, 1, 168, 1, 177, 1, 180, 1, 181, 1, 184, 1, 185, 1, 186, 1, 188, 1, 189, 1, 194, 1, 196, 1, 199, 1, 202, 1, 205, 1, 211, 2, 213, 1, 216, 1, 220, 2, 223, 1, 224, 1, 229, 1, 232, 1, 236, 1, 239, 1, 244, 1, 249, 1, 250, 1, 253, 1, 254, 1, 265, 1, 267, 1, 281, 1, 282, 1, 284, 1, 300, 1, 308, 1, 314, 1, 342, 1, 345, 1, 350, 1, 359, 1, 362, 1, 370, 1, 378, 1, 379, 1, 386, 1, 396, 1, 401, 1, 417, 1, 424, 1, 446, 1, 469, 1, 499, 1, 500, 1, 511, 1, 518, 1, 526, 1, 539, 1, 549, 1, 550, 1, 573, 1, 621, 1, 635, 1, 688, 1, 787, 1, 951, 1, 1157, 1, 2551, 1),ncol=2,byrow=TRUE)

Try the breakaway package in your browser

Any scripts or data that you put into this service are public.

breakaway documentation built on May 30, 2017, 3:14 a.m.