<- here::here("data/pigs.csv") |> # Define the file location
pigs read_csv() |> # Import the data
mutate(
## Set the appropriate factor levels
dose = factor(dose, levels = c("Low", "Med", "High")),
supp = factor(supp, levels = c("VC", "OJ"))
)