Creation d'un rapport

	# definition du tableau
	tab = data.frame(math=c(10,12,5,9,13),anglais=c(5,13,7,12,5),sexe=c("homme","femme","femme","homme","homme"))	
	# chargement de R2HTML
	library(R2HTML)

	HTMLon()
	titre = paste("Etude de la variable", variable)
	HTML.title(titre, HR=2)
	HTML.title("Resume :", HR=3)
	HTML(summary(tab[[variable]]))
	HTML.title("Graphique :", HR=3)
	if (is.numeric(tab[[variable]])) {
		# les 2 lignes suivantes ne semblent plus valables depuis R.10
		# boxplot(tab[[variable]],main=legende)
		# showgraph()
		# solution de remplacement utilisant R2HTML
		png("graphique.PNG")
		boxplot(tab[[variable]],main=legende)
		dev.off()
		HTMLInsertGraph("graphique.PNG")
	} else {
		# les 2 lignes suivantes ne semblent plus valables depuis R.10
		# pie(table(tab[[variable]]),main=legende)
		# showgraph()
		# solution de remplacement utilisant R2HTML
		png("graphique.PNG")
		pie(table(tab[[variable]]),main=legende)
		dev.off()
		HTMLInsertGraph("graphique.PNG")
	}
	HTMLoff()