# Applies event counting to a behavior stream

### Description

Calculates the number of behaviors that begin during the observation session.

### Usage

1 | ```
event_counting(BS)
``` |

### Arguments

`BS` |
object of class |

### Value

Vector of non-negative integers.

### Examples

1 2 3 | ```
BS <- r_behavior_stream(n = 5, mu = 3, lambda = 10,
F_event = F_exp(), F_interim = F_exp(), stream_length = 100)
event_counting(BS)
``` |