new <- add_your_own_pesticide(pesticides = "Poison", relative_LORs = 0.023,
pesticide_types = "Poison", distribution_types = "Log-Normal", scales = 0.09,
shape_locations = 0.014)
multiple_new <- add_your_own_pesticide(pesticides = c("Poison", "Acid", "Sludge"),
relative_LORs = c(0.03, 0.01, 0.5), pesticide_types = c("Poison", "Acid", "Sludge"),
distribution_types = c("Log-Normal", "Log-Logistic Log-Logistic", "Burr Type III"),
scales = c(0.3, 0.002, 2),
scale_2s = c(NA, 0.04, NA), shape_locations = c(1, 0.07, 3),
shape_location_2s = c(NA, 0.14, 2.3), weights = c(NA, 0.08, NA))
Run the code above in your browser using DataLab