library(palmerpenguins)
names(penguins)
names(penguins_raw)
library(dplyr)
library(readr)
data_peng_field <- read_csv("data/palmerpenguins_fielddata.csv")
library(tinytable)
mod0 <- lm(flipper_length_mm ~ species, data = data_peng_field)
mod1 <- lm(flipper_length_mm ~ species + bill_length_mm, data = data_peng_field)
mod2 <- lm(flipper_length_mm ~ species + bill_length_mm + bill_depth_mm, data = data_peng_field)
