setwd("S:/WWW/iutenligne/InOutStatR/pb1")	# repertoire de travail à changer
med = read.table("medecine.txt", header=TRUE, sep="\t", na.strings="NA", dec=",", strip.white=TRUE)
summary(med)
summary(med$taille)