R/calc_streak.R

In jbryer/DATA606: DATA606 Statistics and Probability for Data Analytics

Defines functions calc_streak

Documented in calc_streak

#' Calculate a streak.
#'
#' @export
calc_streak <- function(x) {
  y <- rep(0,length(x))
  y[x == "H"] <- 1
  y <- c(0, y, 0)
  wz <- which(y == 0)
  streak <- diff(wz) - 1
  return(streak)
}