inst/source/disease.R

In raredd/plotr: More plotting functions and examples

## disease data for prettypie

disease <- structure(list(Disease = structure(c(8L, 4L, 6L, 3L, 10L, 11L, 1L, 9L, 5L, 7L, 2L),
                                              .Label = c("Acid Reflux", "Asthma", "Bronchitis", "Chronic Sunisitis", "Depression", "Diabetes", "Emphysema", "Hypertension", "Ostearthritis", "Osteoporosis", "Rheumatoid Arthritis"),
                                              class = "factor"), 
                          Acosts60 = c(6045, 3515, 8190, 6256, 5025, 6708, 6506, 5213, 6456, 10723, 5854),
                          Pcosts60 = c(1103, 748, 1305, 913, 1097, 1205, 1104, 957, 1179, 1362, 1098),
                          Icosts60 = c(4942, 2767, 6885, 5343, 3928, 5503, 5401, 4256, 5276, 9360, 4755),
                          Patients60 = c(2253, 379, 1097, 109, 791, 100, 883, 113, 569, 21, 330),
                          Total60 = c(13619385, 1332185, 8984430, 681904, 3974775, 670800, 5744798, 589069, 3673464, 225183, 1931820),
                          Acost25 = c(3079, 1500, 4513, 0, 2551, 0, 3375, 2996, 3202, 0, 2558),
                          Pcosts25 = c(594, 392, 822, 0, 599, 0, 611, 595, 671, 0, 582),
                          Icosts25 = c(2485, 1108, 3690, 0, 1951, 0, 2764, 2401, 2530, 0, 1975),
                          Patients25 = c(235, 308, 116, 0, 70, 0, 391, 14, 511, 0, 426),
                          Total25 = c(723565, 462000, 523508, 0, 178570, 0, 1319625, 41944, 1636222, 0, 1089708)),
                     .Names = c("Disease", "Acosts60", "Pcosts60", "Icosts60", "Patients60", "Total60", "Acost25", "Pcosts25", "Icosts25", "Patients25", "Total25"), 
                     row.names = c(NA, -11L), class = "data.frame")