runif(1)
runif(10)
runif(10, 0, 100)
?runif
pnorm(0.)
pnorm(3)
pnorm(0)
qnorm(0)
qnorm(0.5)
qnorm(0.99)
x = runif(100000)
mean(x)
sd(x)
summary(x)
hist(x)
hist(x, nc=50, col='cyan')
hist(x, nc=50, col='cyan', p=TRUE)
hist(x, nc=50, col='cyan', prob=TRUE)
sample(1:10)
sample(1:10)
sample(1:10)
sample(1:10)
sample( c('a', 'b', 'c', 'd') )
sample( c('a', 'b', 'c', 'd') )
sample( c('a', 'b', 'c', 'd') )
sample( c('a', 'b', 'c', 'd') )
sample( c('a', 'b', 'c', 'd') )
sample( letters )
sample( letters )
sample( letters )
sample( LETTERS )
sample( LETTERS )
sample( LETTERS[1:10] )
sample( LETTERS[1:10] )
sample( LETTERS[1:10] )
sample( LETTERS[1:10] )
sample(c(LETTERS, letters), 10)
sample(c(LETTERS, letters), 10)
sample(c(LETTERS, letters), 10)
n.estr <- sample(90)
n.estr
n.estr <- sample(90)
n.estr
for(n in n.estr) {cat(sprintf("Uscito %d\n", n)); Sys.sleep(1)}
sample(6, 100, rep=TRUE)
sample(6, 100, rep=TRUE)
sample(6, 100, rep=TRUE)
sample(6, 100, rep=TRUE)
sample(6, 100, rep=TRUE)
sample(0:36, 100, rep=TRUE)
sample(0:36, 100, rep=TRUE)
sample(c(letters, LETTERS, 0:9))
paste( sample(c(letters, LETTERS, rep(0:9,3)), 12), collapse='' )
paste( sample(c(letters, LETTERS, rep(0:9,3)), 12), collapse='' )
paste( sample(c(letters, LETTERS, rep(0:9,3)), 12), collapse='' )
paste( sample(c(letters, LETTERS, rep(0:9,3)), 12), collapse='' )
n <- sample(6, 10000, rep=TRUE)
hist(n, col='cyan')
( tn <- table(n) )
barplot(tn, col='cyan')
n <- sample(6, 10000, rep=TRUE); tn <- table(n); barplot(tn, col='cyan')
n <- sample(6, 10000, rep=TRUE); tn <- table(n); barplot(tn, col='cyan')
n <- sample(6, 10000, rep=TRUE); tn <- table(n); barplot(tn, col='cyan')
n <- sample(6, 10000, rep=TRUE); tn <- table(n); barplot(tn, col='cyan')
n <- sample(6, 10000, rep=TRUE); tn <- table(n); barplot(tn, col='cyan')
n <- sample(6, 10000, rep=TRUE); tn <- table(n); barplot(tn, col='cyan')
citta = c("Roma", "Milano", "Napoli", "Torino", "Palermo")
mil.abi = c(2.9, 1.4, 0.97, 0.88, 0.67)
pie(mil.abi, citta)
pie(mil.abi, citta, col=rainbow(5))
barplot(mil.abi, names=citta, col=rainbow(5))
n1 <- sample(6, 1000, rep=TRUE)
n2 <- sample(6, 1000, rep=TRUE)
par(mfrow=c(2,1))
barplot(table(n1), col='cyan')
barplot(table(n2), col='cyan')
s = n1 + n2
d = n1 - n2
barplot(table(s), col='cyan')
barplot(table(d), col='cyan')
x <- rnorm(1000000)
hist(x, col='cyan', nc=100)
q()
rm(x)
y
q()