This is a presentation about my app submission for the Data Products Course project.

I have made an app that will predict the standing quarter mile time of a car, the model is trained on the MTcars data set.

The model is built from the following 3 features

• Weight (wt)
• Horsepower (hp)
• Number of Cylinders (cyl)

mtcars %>%ggplot(aes(qsec, wt)) + geom_line() +  
  geom_smooth(method = "lm") + labs(
    y = "Weight (1000s lb)", x = "Quarter Mile Time (seconds)")

mtcars %>% ggplot(aes(qsec, hp)) + geom_line() + 
  geom_smooth(method = "lm") +
  labs(y = "Horsepower", x = "Quarter Mile Time (seconds)")

mtcars %>% ggplot(aes(qsec, factor(cyl), group = cyl)) + 
  geom_boxplot() + coord_flip() + 
  labs(y = "Cylinders", x = "Quarter Mile Time (seconds)")