dados, R - rextester

dados

Language: Layout:

# Definir dado
dado<-c("1", "2", "3", "4","5","6")
# realizar 20 lanzamientos
(Resultado<-sample(dado,20, replace=TRUE))
#table Resultado/length Resultado)
table(Resultado)
n<-c(length(Resultado),table(Resultado)/length(Resultado))
(f<-rbind(n))
# realizar 100 lanzamientos
Resultado<-sample(dado,100, replace=TRUE)
table(Resultado)
#table Resultado/length Resultado)
n<-c(length(Resultado),table(Resultado)/length(Resultado))
(f<-rbind(f,n))
# realizar 1000 lanzamientos
Resultado<-sample (dado,1000, replace=TRUE)
table(Resultado)
#table Resultado /length Resultado)
n<-c(length (Resultado),table(Resultado)/length(Resultado))
(f<-rbind(f,n))
# realizar 10000 lanzamientos
Resultado<-sample (dado,10000, replace=TRUE)
table(Resultado)
#table Resultado /length Resultado)
n<-c(length (Resultado),table(Resultado)/length(Resultado))
(f<-rbind(f,n))
# realizar 100000 lanzamientos
Resultado<-sample (dado,100000, replace=TRUE)
table(Resultado)
#table Resultado /length Resultado)
n<-c(length (Resultado),table(Resultado)/length(Resultado))
f<-rbind(f,n)
f

[ + ] Show input
Absolute running time: 0.53 sec, cpu time: 0.86 sec, memory peak: 34 Mb, absolute service time: 0,54 sec

[1] "3" "5" "2" "1" "3" "5" "1" "5" "3" "3" "6" "6" "1" "3" "1" "4" "6" "5" "1" [20] "5" Resultado 1 2 3 4 5 6 5 1 5 1 5 3 1 2 3 4 5 6 n 20 0.25 0.05 0.25 0.05 0.25 0.15 Resultado 1 2 3 4 5 6 18 19 20 10 15 18 1 2 3 4 5 6 n 20 0.25 0.05 0.25 0.05 0.25 0.15 n 100 0.18 0.19 0.20 0.10 0.15 0.18 Resultado 1 2 3 4 5 6 164 163 163 184 164 162 1 2 3 4 5 6 n 20 0.250 0.050 0.250 0.050 0.250 0.150 n 100 0.180 0.190 0.200 0.100 0.150 0.180 n 1000 0.164 0.163 0.163 0.184 0.164 0.162 Resultado 1 2 3 4 5 6 1640 1711 1655 1617 1681 1696 1 2 3 4 5 6 n 20 0.250 0.0500 0.2500 0.0500 0.2500 0.1500 n 100 0.180 0.1900 0.2000 0.1000 0.1500 0.1800 n 1000 0.164 0.1630 0.1630 0.1840 0.1640 0.1620 n 10000 0.164 0.1711 0.1655 0.1617 0.1681 0.1696 Resultado 1 2 3 4 5 6 16701 16864 16565 16531 16584 16755 1 2 3 4 5 6 n 2e+01 0.25000 0.05000 0.25000 0.05000 0.25000 0.15000 n 1e+02 0.18000 0.19000 0.20000 0.10000 0.15000 0.18000 n 1e+03 0.16400 0.16300 0.16300 0.18400 0.16400 0.16200 n 1e+04 0.16400 0.17110 0.16550 0.16170 0.16810 0.16960 n 1e+05 0.16701 0.16864 0.16565 0.16531 0.16584 0.16755