Week 8 Models

Load libraries and data

library(here)
library(tidyverse)
library(glmmTMB)
library(ggeffects)

dino <- read.csv(here("Week_08", "Data", "psittacosaurus.csv"))

Linear Model

Exponential model

Logistic model