This is the description of the exercise.
This is a link: markdown cheatsheet1
This is an image:

This is a code-block with syntax highlighting:
library(ISLR2)
data(Auto)
set.seed(1)
train <- sample(nrow(Auto), floor(nrow(Auto)*0.5))
mpg as the dependent variable and displacement and horsepower as independent variables. 
Train your model on the train set and store your model in model.preds.len using the length() function.Assume that: