# comandi R usati a lezione (28 aprile 2025)

x1 <- runif(100000)
hist(x1, nc=100, col='cyan')
mean(x1)
1/sqrt(12)
sd(x1)
x2 <- runif(100000)
mean(x2)
sd(x2)
y <- x1 + x2 
mean(y)
var(y)
1/12*2
hist(y, nc=100, col='cyan')
x3 <- runif(100000)
x4 <- runif(100000)
x6 <- runif(100000)
y6 <- x1+x2+x3+x4+x5+x6
x5 <- runif(100000)
y6 <- x1+x2+x3+x4+x5+x6
vqr(y6)
var(y6)
mean(y6)
hist(y6, nc=100, col='cyan')
y6 <- x1+x2+x3+x4+x5+x6 - 3 
hist(y6, nc=100, col='cyan')