# NOT RUN {
data(battery_charging)
head(battery_charging)
# Building a linear model:
battery_lm <- lm(
formula = charging_time ~ A * B * C,
data = battery_charging
)
summary(battery_lm)
# }
Run the code above in your browser using DataLab