*Please provide r studio code/file*
1) Find the equation of the best fit line using leastsquares
linear fit of x,y:
set.seed(88)
x <- 1:100
y <- jitter(1.5*x+8,amount=10)
2) For question 1, Draw the P=0.95 prediction intervals for y
when x=1:150
3) For question 1, Find the equation of the best fit lineusing
median-based linear fit of x,y.
4) For question 3, draw the P=0.95 prediction interval for y
# when x=1:150
