\begin{Schunk}
\begin{Sinput}
 age <- c( 14, 16, 19, 18, 21, 17, 15, 15)
 sex <- c( "M","M","M","M","F","F","F","F")
 salary <- c(8.00, 7.55, 20, 9.00, 26.00, 7.55, 5.00, 13.00)
 mydf <- data.frame( age, sex, salary)
 rm(age, sex, salary) ## clean up workspace
 write.table(mydf, file = "examples/mydf.txt", sep = ",", row.names = FALSE)
\end{Sinput}
\end{Schunk}
