practica1

Practica de R

Simulaciòn del lanzamiento de dos dados para estimar la suma màs probable

dado1=round(runif(10,1,6),0)
dado1

##  [1] 6 1 5 3 1 2 1 5 4 5

dado2=round(runif(10,1,6),0)
dado2

##  [1] 2 5 2 5 4 5 4 1 3 2

suma=dado1+dado2
suma

##  [1] 8 6 7 8 5 7 5 6 7 7

barplot(table(suma))

## Simulación para 100 réplicas

# para 100 réplicas

dado1=round(runif(1000000,1,6),0)
#dado1
dado2=round(runif(1000000,1,6),0)
#dado2
suma=dado1+dado2
#suma
barplot(table(suma))

prop.table(table(suma))

## suma
##        2        3        4        5        6        7        8        9 
## 0.009979 0.040040 0.080209 0.119947 0.159461 0.180155 0.160284 0.120144 
##       10       11       12 
## 0.079885 0.039978 0.009918

barplot(prop.table(table(suma)))