bikes$<-$read.csv$("$bikeshare$.$csv$",$ strings $=$ T$)$ What is wrong about the following code: # CG Q$3$b # Fit a regression using the variables from Q$2$a

########## with the addition of the lagged variable.

########## Call your fitted model ar$1$fit.

arlfit $<-$ glm$($cnt~temp$+$hum$+$windspeed$+$weathersit$+$holiday$+$mnth$+$lag, data$=$bikes$)$ # CG Q$3$c # Find the R$-$squared using the same code

########## structure from previous HWs and lecture.

$1-$arlfit$deviance$/$arlfit$null.deviance # CG Q$3$d # Use similar code to Q$2$f to print the

########## autocorrelation at lag $1$ for the residuals

########## from your AR regression.

acf$($arlfit$residuals, plot$=$F$)[1]$