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()