
\begin{question}
Using the data provided in \url{regression.csv} estimate a linear regression of
\texttt{y} on \texttt{x} and answer the following questions.

\begin{answerlist}
  \item \texttt{x} and \texttt{y} are not significantly correlated
  \item \texttt{y} increases significantly with \texttt{x}
  \item \texttt{y} decreases significantly with \texttt{x}
  \item Estimated slope with respect to \texttt{x}:
\end{answerlist}
 
\end{question}

\begin{solution}
\includegraphics{lm-002}

To replicate the analysis in R:
\begin{verbatim}
## data
d <- read.csv("regression.csv")
## regression
m <- lm(y ~ x, data = d)
summary(m)
## visualization
plot(y ~ x, data = d)
abline(m)
\end{verbatim}

\end{solution}

%% \exname{Linear regression}
%% \extype{cloze}
%% \exsolution{010|0.661}
%% \exclozetype{schoice|num}
%% \extol{0.01}
