\begin{Schunk}
\begin{Sinput}
 newdf <- data.frame(income = mean(Chile$income, na.rm=TRUE), age=median(Chile$age, na.rm = TRUE))
\end{Sinput}
\end{Schunk}
