\begin{Schunk}
\begin{Sinput}
 par(xpd=T)
 dennummen <- density(dat$nummen, na.rm=T)
 plot(dennummen, main="The default plot of a density object")
\end{Sinput}
\end{Schunk}
