\documentclass[a4paper]{article}
\usepackage[latin1]{inputenc}

\begin{document}
<<options, echo = FALSE>>= 
library(xtable) # pour pouvoir produire des tables LaTeX dans R
data(crimtab)   # pour charger le jeu de données (voir ?crimtab)
colnames(crimtab) <- as.numeric(colnames(crimtab))/2.54 # taille en pouces
rownames(crimtab) <- as.numeric(rownames(crimtab))*10   # majeur en mmm
crimtab[which(crimtab == 0, arr.ind = TRUE)] <- NA      # pour virer les 0
crimtab <- crimtab[nrow(crimtab):1, ] # pour inverser l'ordre des lignes
matable <- xtable(x = crimtab, label = "Student",
  caption = "Les données utilisées par William Sealy Gosset,
  plus connu sous le nom de plume de 'Student' et du test statistique éponyme,
  en 1908 (\\textit{Biometrika} \\textbf{6}, 1-25). La collecte des
  données a été faite par MacDonell en 1902 (\\textit{Biometrika}
  \\textbf{1}, 177-227). Il s'agit d'une table de contingence obtenue
  en discrétisant la taille (exprimée ici en pouces, soit 2.54 cm, et
  portée en colonne) et la longueur du majeur de la main gauche
  (exprimée ici en mm et portée en ligne) de 3000 criminels adultes 
  de sexe mâle écroués au pays de Galle et en Angleterre à la fin
  du XIX$\\mathrm{^e}$ siècle. Voir \\texttt{?crimtab} pour plus
  d'informations.")
# Notez les doubles \\ nécessaires dans R, c'est la "double escape rule"
print(matable, file = "Student.tex", size = "tiny", NA.string = ".")
# On veut des '.' au lieu des des NA
@
\input{Student.tex}

Les fameuses données utilisées par Student sont présentées dans la table \ref{Student}.

\end{document}