Show the code in R thank you !

P5) With the built-in mtcars dataset, taking mpg as the Y-variable and disp and hp as the x- variables, use R to solve the resulting least squares multiple regression problem for the vector B (see course slides 31-32) by direct computation of the matrix product (XX) -1XTY, assuming invertibility of the matrix X X. To do this, use the R code: n = nrow(mtcars) p = length (coef(mtcars) ) X = cbind(rep(1, n), mtcars$disp, mtcars$hp) y = mtcars$mpg (beta_hat = solve(t(X) %*% X) %%*%% t(X) %*%% y) Do you know, using R, another way to do this computation and generate the vector B? Do do the computation to produce this vector a different way. Include your code in your answer, and compare the results with those of the other method