Function describing exponential decline from a defined starting value, with a concentration dependent rate constant.
Arguments
- t
- Time. 
- parent_0
- Starting value for the response variable at time zero. 
- k__iore
- Rate constant. Note that this depends on the concentration units used. 
- N
- Exponent describing the nonlinearity of the rate equation 
Note
The solution of the IORE kinetic model reduces to the
SFO.solution if N = 1.  The parameters of the IORE model can
be transformed to equivalent parameters of the FOMC mode - see the NAFTA
guidance for details.
References
NAFTA Technical Working Group on Pesticides (not dated) Guidance for Evaluating and Calculating Degradation Kinetics in Environmental Media
See also
Other parent solutions: 
DFOP.solution(),
FOMC.solution(),
HS.solution(),
SFO.solution(),
SFORB.solution(),
logistic.solution()
Examples
  plot(function(x) IORE.solution(x, 100, 0.2, 1.3), 0, 2, ylim = c(0, 100))
 # \dontrun{
    fit.fomc <- mkinfit("FOMC", FOCUS_2006_C, quiet = TRUE)
    fit.iore <- mkinfit("IORE", FOCUS_2006_C, quiet = TRUE)
    fit.iore.deS <- mkinfit("IORE", FOCUS_2006_C, solution_type = "deSolve", quiet = TRUE)
#> Error in is.loaded(initfunc, PACKAGE = dllname, type = "") : 
#>   invalid 'PACKAGE' argument
    print(data.frame(fit.fomc$par, fit.iore$par, fit.iore.deS$par,
                     row.names = paste("model par", 1:4)))
#>             fit.fomc.par fit.iore.par fit.iore.deS.par
#> model par 1  85.87489063    85.874890        85.874890
#> model par 2   0.05192238    -4.826631        -4.826631
#> model par 3   0.65096665     1.949403         1.949403
#> model par 4   1.85744396     1.857444         1.857444
    print(rbind(fomc = endpoints(fit.fomc)$distimes, iore = endpoints(fit.iore)$distimes,
                iore.deS = endpoints(fit.iore)$distimes))
#>              DT50    DT90 DT50back
#> fomc     1.785233 15.1479 4.559973
#> iore     1.785233 15.1479 4.559973
#> iore.deS 1.785233 15.1479 4.559973
  # }
  # \dontrun{
    fit.fomc <- mkinfit("FOMC", FOCUS_2006_C, quiet = TRUE)
    fit.iore <- mkinfit("IORE", FOCUS_2006_C, quiet = TRUE)
    fit.iore.deS <- mkinfit("IORE", FOCUS_2006_C, solution_type = "deSolve", quiet = TRUE)
#> Error in is.loaded(initfunc, PACKAGE = dllname, type = "") : 
#>   invalid 'PACKAGE' argument
    print(data.frame(fit.fomc$par, fit.iore$par, fit.iore.deS$par,
                     row.names = paste("model par", 1:4)))
#>             fit.fomc.par fit.iore.par fit.iore.deS.par
#> model par 1  85.87489063    85.874890        85.874890
#> model par 2   0.05192238    -4.826631        -4.826631
#> model par 3   0.65096665     1.949403         1.949403
#> model par 4   1.85744396     1.857444         1.857444
    print(rbind(fomc = endpoints(fit.fomc)$distimes, iore = endpoints(fit.iore)$distimes,
                iore.deS = endpoints(fit.iore)$distimes))
#>              DT50    DT90 DT50back
#> fomc     1.785233 15.1479 4.559973
#> iore     1.785233 15.1479 4.559973
#> iore.deS 1.785233 15.1479 4.559973
  # }