#Fit the Lambda parameter to a distribution of offspring.
#Test the goodness of fit.
data(fungus)
fungus_fit<-fit_dist_pois(fungus$Total_Offspring)
fungus_fit$fit_pois
fungus_fit$chi_pois
hist(fungus_fit$data_pois)
Run the code above in your browser using DataLab