\begin{Schunk}
\begin{Sinput}
 ## with(mydf, points(age, salary, pch = 4, cex=2)) ##same as:
 points(salary ~ age, data = mydf, pch = 4, cex = 2)
\end{Sinput}
\end{Schunk}
