# NOT RUN {
model <- ecxsys(
concentration = c(0, 0.05, 0.5, 5, 30),
hormesis_concentration = 0.5,
survival_tox_observed = c(90, 81, 92, 28, 0),
survival_tox_env_observed = c(29, 27, 33, 5, 0)
)
# Use survival_max if for example the survival is given as the average number
# of surviving animals and the initial number of animals is 21:
model <- ecxsys(
concentration = c(0, 0.03, 0.3, 3, 30),
hormesis_concentration = 0.3,
survival_tox_observed = c(17, 15.2, 18.8, 7, 0),
survival_tox_env_observed = c(4.8, 4.6, 6.4, 0, 0),
survival_max = 21
)
# }
Run the code above in your browser using DataLab