## example 1
# calculate ECL-10, ECR-10, EC5, and EC50 of the four hormesis curves
model <- hormesis$sgl$model
param <- hormesis$sgl$param
minx <- hormesis$sgl$minx
nmECx(model, param, effv = c(-0.10, 0.05, 0.50), minx)
Run the code above in your browser using DataLab