Function to collect useful results for a set of fitted kinetic models
Description
This function collects the parameters and some statistics for the fitted kinetic models. It also generates DT50 and DT90 estimates.
Usage
1  kinresults(kinfits, alpha = 0.05, DTmax = 1000, SFORB = TRUE)

Arguments
kinfits 
The list of kinetic model(s) for which to collect results. Usually this will
have been generated by 
alpha 
The confidence level chosen for the chisquared test used in the call to

DTmax 
Upper end of the time interval that will be checked for the iterative determination
of DT50 and DT90 values for the FOMC and the DFOP model. If the DT50 or the
DT90 value is less than 0.1 different from 
SFORB 
Should the results of the 
Value
A list containing a list of the parameters fitted by the models, a dataframe containing some statistics for each of the fitted models, and a dataframe with the resulting DT50 and DT90 values.
Author(s)
Johannes Ranke
References
FOCUS (2006) “Guidance Document on Estimating Persistence and Degradation Kinetics from Environmental Fate Studies on Pesticides in EU Registration” Report of the FOCUS Work Group on Degradation Kinetics, EC Document Reference Sanco/10058/2005 version 2.0, 434 pp, http://focus.jrc.ec.europa.eu/dk
Examples
1 2 3  data(FOCUS_2006_A)
kinfits < kinfit(FOCUS_2006_A)
kinresults(kinfits)
