# \donttest{
library(ggplot2)
library(agridat)
library(magrittr)
library(agriutilities)
data(baker.barley.uniformity)
dat <- baker.barley.uniformity
head(dat)
model <- lm(yield ~ year, dat)
dat %>%
na.omit() %>%
ggplot(
aes(x = year, y = yield)
) +
geom_point() +
geom_smooth(method = "lm") +
theme_bw()
parameters_gg(model = model, trait = "yield")
# }
Run the code above in your browser using DataLab