data-raw/PbHeron.R

In SwampThingPaul/NADA2: Data Analysis for Censored Environmental Data

## Internal Data
## From R-package NADA Golden dataset
## Blood lead in organs of herons from Virginia.

PbHeron <- data.frame(Group=c(1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3,
                           4, 4, 4, 4, 4, 4, 4),
                   Dosage=c(0, 0, 0, 0, 0, 0, 0, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01,
                            0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.25, 0.25, 0.25, 0.25, 0.25,
                            0.25, 0.25),
                   DosageGroup=c("Low", "Low", "Low", "Low", "Low", "Low", "Low", "Low", "Low",
                                  "Low", "Low", "Low", "Low", "Low", "High", "High", "High", "High",
                                  "High", "High", "High", "High", "High", "High", "High", "High",
                                  "High"),
                   Liver=c(0.3016412, 0.136149733, 0.04, 0.098927875, 0.04, 0.059551887,
                           0.039300847, 0.174832536, 0.327969349, 0.116129032, 0.238457043,
                           0.037241379, 0.04, 0.04, 7.085059172, 34.561128527, 0.037130542,
                           0.192421384, 0.114814815, 30.694444444, 0.433145363, 0.261548471,
                           0.215394089, 0.219843852, 0.402298851, 46.469687093, 0.06),
                   LiverCen=c(FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE,
                              FALSE, FALSE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE,
                              FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE),
                   Bone=c(0.196427273, 0.029025145, 0.03, 0.036912241, 0.076640271, 0.341846591,
                          0.110834468, 1.065088702, 0.254807692, 3.208333333, 0.266455194,
                          0.1843725, 1.030704762, 0.775788271, 57.577714012, 27.275882353,
                          0.4769541, 5.463346702, 1.231322385, 71.078431373, 10.69424693,
                          9.855, 12.51562944, 8.923509091, 58.593631778, 160.096153846,
                          1.097199519),
                   BoneCen=c(FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,
                             FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,
                             FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE),
                   Brain=c(0.346229508, 0.392063492, 0.695032258, 0.190645161, 0.07, 0.145747801,
                           0.06, 0.351254237, 1.726774691, 0.736693548, 0.516, 0.235287356,
                           0.327671371, 0.128353141, 1.454402516, 2.468076923, 0.058608059,
                           0.448860316, 0.197573436, 0.42574124, 0.731412894, 0.561320755,
                           0.382716049, 0.353851541, 0.831339713, 0.735245902, 0.177469136),
                   BrainCen=c(FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE,
                              FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,
                              FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE),
                   Feather=c(0.07, 0.06, 0.394, 0.111, 0.242, 0.076, 0.069, 0.232, 0.059,
                             0.428, 0.094, 0.305, 0.116, 0.203, 2.66, 0.914, 0.533, 6.53,
                             0.31, 1, 1.27, 0.573, 0.571, 0.999, 2.43, 13.8, 0.291),
                   FeatherCen=c(TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,
                                FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,
                                FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE),
                   Blood=c(0.02, 0.02, 0.02, 0.02, 0.02, 0.018644068,
                           0.02, 0.02, 0.02, 0.033962264, 0.02, 0.02, 0.02, 0.02, 0.106060606,
                           0.174074074, 0.02, 0.023529412, 0.01372549, 0.268965517, 0.049152542,
                           0.015517241, 0.02, 0.024528302, 0.02, 0.17704918, 0.014285714),
                   BloodCen=c(TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, FALSE,
                              TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE,
                              FALSE, FALSE, TRUE, FALSE, TRUE, FALSE, FALSE),
                   Kidney=c(0.081962482, 0.062931034, 0.058651026, 0.095550847, 0.116238974,
                            0.05941358, 0.05, 0.4224, 0.143719807, 0.409883721, 0.1, 0.239902081,
                            0.256748911, 0.360598897, 10.671428571, 10.855263158, 1.196933962,
                            5.114754098, 0.419141324, 8.368372093, 1.975549451, 1.176400679,
                            1.365151515, 1.507085253, 3.387272727, 12.214285714, 0.551567398),
                   KidneyCen=c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE,
                               FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,
                               FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE)
                   )
usethis::use_data(PbHeron,internal=F,overwrite=T)