\begin{Schunk}
\begin{Sinput}
> plot(1:10, 1:10, type = "n")
> abline(h = 2:9, v = c(3, 5, 7), col = "gray80")
> arrows(x0 = 2, y0 = 3, x1 = 9, y1 = 2, length = 0.1)
> text(3, 7, "Kansas in Summer is like Paris", pos = 4)
> text(3.2, 6.6, "if Paris were hot and humid", pos = 4)
\end{Sinput}
\end{Schunk}
