simular moneda

Probabilidad de un evento

Probabilidad de sello o aguila al lanzar una moneda n veces

que cara cae? ¿sello o águila?

  # simulando probabilidad con monedas y con datos
moneda <- c("aguila", "sello")
acumular<-NULL
n <- 100   # numero de veces de laznar  moneda

acumular <- sample(moneda, n, replace = TRUE)
  
acumular 

##   [1] "sello"  "aguila" "aguila" "sello"  "sello"  "sello"  "sello" 
##   [8] "aguila" "aguila" "sello"  "aguila" "aguila" "aguila" "sello" 
##  [15] "sello"  "sello"  "aguila" "sello"  "sello"  "sello"  "sello" 
##  [22] "aguila" "sello"  "aguila" "aguila" "sello"  "sello"  "sello" 
##  [29] "sello"  "sello"  "aguila" "sello"  "sello"  "sello"  "sello" 
##  [36] "sello"  "sello"  "sello"  "sello"  "aguila" "sello"  "aguila"
##  [43] "aguila" "sello"  "aguila" "sello"  "aguila" "sello"  "aguila"
##  [50] "sello"  "sello"  "aguila" "sello"  "aguila" "aguila" "aguila"
##  [57] "aguila" "sello"  "sello"  "aguila" "aguila" "sello"  "aguila"
##  [64] "aguila" "sello"  "aguila" "sello"  "aguila" "sello"  "sello" 
##  [71] "aguila" "sello"  "sello"  "sello"  "sello"  "sello"  "aguila"
##  [78] "sello"  "sello"  "aguila" "aguila" "sello"  "sello"  "sello" 
##  [85] "aguila" "sello"  "aguila" "aguila" "sello"  "aguila" "aguila"
##  [92] "sello"  "sello"  "aguila" "sello"  "sello"  "sello"  "aguila"
##  [99] "aguila" "aguila"

table(acumular)/n  # Sacar sus frecuencias

## acumular
## aguila  sello 
##   0.42   0.58