\documentclass[a4paper]{article}
% Taken from the Sweave manual.
\title{ Sweave Example 1}
\author{Friedrich Leisch}
\usepackage{Sweave}
\begin{document}
\maketitle
In this example we embed parts of the examples from the
\texttt{kruskal.test} help page into a \LaTeX{} document :
\begin{Schunk}
\begin{Sinput}
> data(airquality)
> kruskal.test(Ozone ~ Month, data = airquality)
\end{Sinput}
\begin{Soutput}
	Kruskal-Wallis rank sum test

data:  Ozone by Month 
Kruskal-Wallis chi-squared = 29.2666, df = 4, p-value = 6.901e-06
\end{Soutput}
\end{Schunk}
which shows that the location parameter of the Ozone
distribution varies significantly from month to month . Finally we
include a boxplot of the data:
\begin {center}
\includegraphics{test2-002}
\end{center}
\end{document}

