R/find_spacings.R

In bayesball/BayesTestStreak: Testing Streakiness in Binary Sequences by Bayes Factors

find_spacings = function(streak_data, value = 0) {
  # input is a data frame
  runs <- rle(streak_data$Outcome)
  data.frame(Spacing = 
               runs$lengths[runs$values == value]) %>% 
    mutate(N = row_number()) %>% 
    select(N, Spacing)
}