Drop empty families
Value
Returns data events with strategies (excluding strategy families that contain no observed data)
Examples
# \donttest{
data_events <- data.frame(event = c('X0Y0', 'Y0'),
strategy = c('XY', 'Y'),
count = 1:0)
CausalQueries:::drop_empty_families(data_events)
#> event strategy count
#> 1 X0Y0 XY 1
# }