R/tosscoin2.R

Defines functions tosscoin2

Documented in tosscoin2

#' @title Sample Space of Tossing Coins

#' @description Create Sample Space of Tossing Coins


#' @usage tosscoin2(times)

#' @param times Number of coins

#'
#' @return Sample space in data frame
#' @examples
#' tosscoin2(4)
#' @export

tosscoin2 <- function(times) {
  temp <- list()
  for (i in 1:times) {
    temp[[i]] <- c("H", "T")
  }
  res <- expand.grid(temp, KEEP.OUT.ATTRS = FALSE)
  names(res) <- c(paste(rep("X", times), 1:times, sep = ""))
  return(res)
}
jhk0530/Rstat documentation built on Dec. 20, 2021, 11:11 p.m.