knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.width = 7,
  fig.height = 5, 
  fig.fullwidth = TRUE
)
library(mmmTMB)

Fit to simulated data

# Data
data_list <- sim_data
# Parameters
parameters_list <- NULL
# Settings
settings_list <- mmmSet(
  error_family = 0,
  nlminb_loops = 5,
  newton_iters = 5,
  openmp_cores = 6)
# Fit
fit <- mmmFit(
  data = data_list,
  parameters = parameters_list,
  settings = settings_list,
  control = mmmControl(trace = 5)
)
# Inspect results
fit$results


luke-a-rogers/mmmTMB documentation built on Jan. 16, 2021, 3:53 p.m.