Muestreo

Lanzar una moneda

tosscoin <- function(n) {
  df <- expand.grid(replicate(n, c("H", "T"), simplify = FALSE),
              KEEP.OUT.ATTRS = FALSE,
              stringsAsFactors = FALSE)
  
  names(df) <- paste0("x", seq_len(n))
  return(df)
}

tosscoin (3)

##   x1 x2 x3
## 1  H  H  H
## 2  T  H  H
## 3  H  T  H
## 4  T  T  H
## 5  H  H  T
## 6  T  H  T
## 7  H  T  T
## 8  T  T  T