"Sci.Budget" <- structure(list( Budget = c(NA, 49232, 26740, 53000, 207928, NA, 70000, 39760, NA, NA, 36822, NA, 177776, 271160, 135000, NA, 176619, 165875, 89073, 5000, NA, 63300, 67436, NA, 87000, 156986, 129194, 13700, 151802, NA, 88447, NA, NA, 36400, 150000, 27000, 151007, 21689, 3600, NA, NA, 131700, 41688, 115000, 33620, 105000, NA, 158754, 23000, 138648, NA, NA, NA, NA, 11320, NA, NA, NA, 15444, 60708, 94518, 240622, 23000, 256690, 200000, 249470, 185820, 82191, NA, 313847, 81821, NA, 44000, NA, 244645, 380475, 45772, 70000, 100000, NA, NA, NA, NA, NA, 90000, NA, 227219, 155000, 84314, 37200, 48316, 65639, NA, NA, NA, NA), Faculty = c(21, 31, 32, NA, NA, 12, 27, 19, 39, 30, 24, 36, 37, 56, 44, 40, 32, 53, 41, 11, 28, 39, 20, 19, 22, 41, 41, NA, 35, 17, 34, 33, 24, 41, 26, 21, 47, 14, 15, 24, 20, 43, 22, 22, 31, 62, 15, 35, 19, 40, 12, 33, NA, NA, 12, 32, 47, 55, 9, 52, 28, 47, 18, 38, 34, 46, 58, 22, 29, 45, 27, 17, 22, 35, 50, 71, 21, 22, 24, 16, 27, 52, 33, 20, 30, 31, 48, 36, 37, 36, 18, 31, 26, 11, 16, 19)), .Names = c("Budget", "Faculty"), class = "data.frame", row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", "91", "92", "93", "94", "95", "96"))