## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = FALSE
)

## -----------------------------------------------------------------------------
# library(predmicror)
# 
# data(growthfull)
# 
# huang <- fit_growth(
#   growthfull,
#   model = "HuangFM",
#   time = "Time",
#   response = "lnN",
#   start = list(Y0 = 0, Ymax = 22, MUmax = 1.7, lag = 5)
# )
# 
# baranyi <- fit_growth(
#   growthfull,
#   model = "BaranyiFM",
#   time = "Time",
#   response = "lnN",
#   start = list(Y0 = 0, Ymax = 22, MUmax = 1.7, lag = 5)
# )

## -----------------------------------------------------------------------------
# head(predmicror_augment(huang))

## -----------------------------------------------------------------------------
# fit_metrics(huang)

## -----------------------------------------------------------------------------
# compare_models(
#   huang = huang,
#   baranyi = baranyi,
#   sort_by = "AIC"
# )