R/print.fit_nlin2.R

In epifitter: Analysis and Simulation of Plant Disease Progress Curves

print.fit_nlin2 <- function(x, ...) {
  cat("Results of fitting population models \n\n")
  # print(x$header, ...)
  cat("Stats:\n")
  print(x$Stats, ...)
  cat("\n Infection rate:\n")
  print(x$`Infection rate`, ...)
  cat("\n Initial inoculum:\n")
  print(x$`Initial inoculum`, ...)
  cat("\n Maximum disease intensity:\n")
  print(x$`Maximum disease intensity`, ...)
}