I comandi di R impiegabili per una gestione in laboratorio di alcuni dei contenuti della scheda.
Altri esempi sono contenuti nella scheda stessa.
Vedi qui per una guida all'uso di R (clicca "Command index" per un indice alfabetico)

Le statistiche
Alcuni modelli per la rappresentazione dei dati

Scheda 3

source("http://macosa.dima.unige.it/r.R")
 
anno = seq(1881,2001,10)
h = c(162.8,163.0,163.6,164.3,165.2,166.0,166.7,167.5,168.8,170.1,172.9,174.1,174.6)
BF=5; HF=4
Plane(1880,2005, 162,175)
AXES(1880,162,"brown")
Point(anno,h, "black")
polyl(anno,h, "black")
#
# 1880
freq <- c(4.0,6.8,20.4,28.4,23.5,11.7,3.7,1.5)
interv <- seq(145,185,5)
histoclas(interv,freq)
# 1961
freq <- c(1.7,6.8,18.6,29.1,25.2,13.2,4.3,1.1)
interv <- seq(155,205,5)
histoclas(interv,freq)
# 1992
freq <- c(1.7,6.8,18.6,29.1,25.2,13.2,4.3,1.1)
interv <- seq(155,200,5)
histoclas(interv,freq)
#
#
SQUARES(5,9)
COUNT(9)
for(i in 1:6) CROSS(2,i) 
for(i in 1:5) CROSS(3,i) 
for(i in 1:9) CROSS(4,i) 
for(i in 1:3) CROSS(5,i)
#
#
# Volendo fare istogrammi a crocette per il quesito 11:
BF=3; HF=2
SQUARES(17,8)
CROSS(1,1)
for(i in 1:2) CROSS(2,i)
for(i in 1:2) CROSS(3,i)
for(i in 1:5) CROSS(4,i)
for(i in 1:6) CROSS(5,i)
for(i in 1:7) CROSS(6,i)
for(i in 1:4) CROSS(7,i)
for(i in 1:3) CROSS(8,i)
for(i in 1:2) CROSS(9,i)
for(i in 1:2) CROSS(10,i)
CROSS(11,1); CROSS(12,1)
LCROSS(9,"159-175")
#
SQUARES(17,8)
CROSS(7,1)
for(i in 1:2) CROSS(8,i)
for(i in 1:3) CROSS(9,i)
for(i in 1:4) CROSS(10,i)
for(i in 1:6) CROSS(11,i)
for(i in 1:7) CROSS(12,i)
for(i in 1:6) CROSS(13,i)
for(i in 1:4) CROSS(14,i)
for(i in 1:2) CROSS(15,i)
CROSS(16,1); CROSS(17,1)
LCROSS(9,"159-175")
#
SQUARES(17,8)
CROSS(1,1)
for(i in 1:2) CROSS(2,i)
for(i in 1:2) CROSS(3,i)
for(i in 1:5) CROSS(4,i)
for(i in 1:6) CROSS(5,i)
for(i in 1:7) CROSS(6,i)
for(i in 1:(4+1)) CROSS(7,i)
for(i in 1:(2+3)) CROSS(8,i)
for(i in 1:(3+2)) CROSS(9,i)
for(i in 1:(4+2)) CROSS(10,i)
for(i in 1:(6+1)) CROSS(11,i)
for(i in 1:(7+1)) CROSS(12,i)
for(i in 1:6) CROSS(13,i)
for(i in 1:4) CROSS(14,i)
for(i in 1:2) CROSS(15,i)
CROSS(16,1); CROSS(17,1)
LCROSS(9,"159-175")
#
#
# 1881
freq <- c(4.0,6.8,20.4,28.4,23.5,11.7,3.7,1.5)
interv <- seq(145,185,5)
BF=4; HF=3.5; histoclas(interv,freq); text(175,5.25,"1881")
BF=4; HF=1.4; boxAB = c(145,195); morestat()
# 1961
freq <- c(1.7,6.8,18.6,29.1,25.2,13.2,4.3,1.1)
interv <- seq(155,205,5)
BF=4; HF=3.5; histoclas(interv,freq); text(185,5.25,"1961")
BF=4; HF=1.4; boxAB = c(145,195); morestat()
# 1992
freq <- c(1.7,6.8,18.6,29.1,25.2,13.2,4.3,1.1)
interv <- seq(155,200,5)
BF=4; HF=3.5; histoclas(interv,freq); text(185,5.25,"1992")
BF=4; HF=1.4; boxAB = c(145,195); morestat()