# Dati sul tasso glicemico discusso negli Oggetti Matematici. Calcoli con R:
tg <- c(rep(78,33),rep(79,23),rep(77,15),rep(80,10),rep(76,4),rep(75,2),74,81)
stem(tg)
summary(tg)
hist(tg,seq(73.5,81.5,1), probability=TRUE, col="yellow")
abline(h=axTicks(2), col="blue",lty=3)
dev.new()
boxplot(tg,horizontal=TRUE,range=0,col="yellow")
# traccio anche il 10^ e il 90^ percentile
points(quantile(tg,0.1),1,col="red",pch=19)
points(quantile(tg,0.9),1,col="red",pch=19)
# 3*sigma/sqrt(N)
sd(tg)/sqrt(length(tg))*3