www = "http://www.dmi.units.it/borelli/dataset/tooth.csv"
tooth = read.csv(www, header = TRUE)
attach(tooth)



# dati qualitativi

	## frequenze assolute
table(gender)
	## frequenze relative
table(smoke)/length(smoke)


# grafici suggeriti

	## torta
pie(table(il1b))
	## diagramma a barre
barplot(table(il1b))



# dati quantitativi

summary(areainfl)
range(areainfl)
var(areainfl)
sd(areainfl)


# grafici suggeriti
	## istogramma
hist(areainfl)
hist(areainfl, breaks = c(0, 50, 60, 70, 100))

	## boxplot
boxplot(areainfl)