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[[var2]]~med[[var1]],main="",xlab=var1,ylab=var2)
	dev.off()
	HTMLInsertGraph("graphique.PNG")
	HTMLoff()

	HTMLon()
	titre = paste("Moyenne et mediane de",var2,"suivant",var1)
	HTML.title(titre,HR=2)
	moyenne = by(med[[var2]], med[[var1]], mean, na.rm=T)
	mediane = by(med[[var2]], med[[var1]], median, na.rm=T)
	mat = cbind(moyenne, mediane)
	HTML(mat)
	HTMLoff()