n=10000; av <- rep(0, n); for(i in 1:n) av[i]=mean(runif(300))
hist(av, nc=100)
mean(av)
sd(av)
rep(1, 10)
n=10000; av <- numeric(); for(i in 1:n) av[i]=mean(runif(300))
?runif
x <- runif(10, 2, 3)
x
length(x)
x[20] 3.14
x[20] = 3.14
length(x)
x
x[11] = 1/0
x
x[12] = 0/0
-3:20 -> a
1:20 -> a
a
x/a
a/x
radice <- function(x=) sqrt(x) 
radice(4)
vol.cil <- function(r, h) pi*r^2*h
vol.cil(2, 4)
vol.cil(r=2, h=4)
vol.cil(h=4, r=2)
vol.cil(h<-4, r<-2)
ls()
sqrt(-1)
sqrt(-1 + 0i)
a <- 1+2i
b <- 2 + 4i
a
b
a*b
sqrt(a*b)
abs(a*b)
arg(a*b)
Arg(a*b)
Re(a)
Im(a)
mu=1/2
sig = 1/sqrt(12)/sqrt(300)
sig
pnorm(0)
pnorm(0, mu, sigma)
pnorm(0, mu, sig)
pnorm(mu, mu, sig)
pnorm(0.544, mu, sig)- pnorm(0.456, mu, sig)
1-pnorm(0.544, mu, sig)
sample(1:6)
1:6
sample(1:6)[1]
sample(1:6)[1]