practica1

Practica de R

Simulacion del lanzamiento de dos dados para estimar la suma mas probable

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

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

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

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

suma=dado1+dado2
suma

##  [1]  9  8  7 11  6  7  9  3  9  6

barplot(table(suma))

#para 100 replicas

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

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

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

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

suma=dado1+dado2
suma

##   [1]  7  6  8  5  7  7  6  7  5  8  5  4  7  3  5  7 11  8  5  3  5 12  4 11  8
##  [26]  8  9  6  5 10  6 11  8  3  9  9  6  7  5  5  7 10  7  6  8  7  3  7  7  8
##  [51]  2 11  8  9  9  8  6  6  5  7  5  6 11  6  8  8  7  5  7  9  5  6 11  7  8
##  [76] 11  5 11 10  6  5  4  9  9  6  9  8  9  7  5  8 10  4  3 10  6  7  5  6 11

barplot(table(suma))

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

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