Variables qualitatives

	HTMLon()
	library(R2HTML)
	quali = med[,c("docteur","societe","act_physique")]
	HTML(summary(quali))
	HTMLoff()

Variables quantitatives

	HTMLon()
	quanti = med[,c("taille","poids","age","taux_chol")]
	HTML(summary(quanti))
	HTMLoff()

variable 1 : docteur societe act_physique
variable 2 : taille poids age taux_chol

	HTMLon()
	# les 2 lignes suivantes ne semblent plus valables depuis R.10
	# boxplot(med[["taille"]]~med[["societe"]],main="...")
	# showgraph()
	# solution de remplacement utilisant R2HTML
	png("graphique.PNG")
	boxplot(med[["taille"]]~med[["societe"]],main="...")
	dev.off()
	HTMLInsertGraph("graphique.PNG")
	HTMLoff()

	HTMLon()
	titre = paste("Moyenne et mediane de la variable","taille","par","societe")
	HTML(titre)
	HTMLoff()