Ecco come studiare con R la legge di distribuzione del "dado non equo" considerata
alla voce "Leggi di distribuzione (variabili discrete)".
dado <- c(rep(1,85),rep(2,194),rep(3,121),rep(4,121),rep(5,175),rep(6,304))
hist(dado,seq(0.5,6.5,1),probability=TRUE)
summary(dado)
var <- sum( (dado-mean(dado))^2 ) / length(dado); var
Ecco come farlo caricando source("http://macosa.dima.unige.it/r.R")
source("http://macosa.dima.unige.it/r.R")
dado <- c(rep(1,85),rep(2,194),rep(3,121),rep(4,121),rep(5,175),rep(6,304))
Istogramma(dado, 0.5,7.5, 1)
# [i lati della griglia distano il 5 %]
# Frequenze e frequenze percentuali:
# 85, 194, 121, 121, 175, 304, 0
# 8.5,19.4,12.1,12.1,17.5,30.4,0
# Per altre statistiche usa il comando altrestat()
Var(dado)
# 3.052639
#
## Volendo:
altrestat()
# Min. 1st Qu. Median Mean 3rd Qu. Max.
# 1.000 2.000 4.000 4.019 6.000 6.000
# I pallini marroni sono 5° e 95° percentile
# Il pallino rosso è la media