Inferencia Clase 2

[1] 4

[1]  7  8  9 10 11 12

Simulación de lanzar 2 dados “n” veces

n<-100000
d<-1:6
dado1=round(runif(n,1,6),0)
dado2<-sample(d,n,replace=T)
suma=dado1+dado2
barplot(table(suma))

[1] 2 3 4 5 6 7