Science Budget Data

Science budgets and the sizes of science faculty at US universities and colleges.

"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"))