## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(tidy = FALSE)

## ----echo = FALSE-------------------------------------------------------------
library(YEAB)

## -----------------------------------------------------------------------------
set.seed(420)
sim_time <- runif(35, 0, 600) # Generates 35 random data points between 0 and 600.
sim_time <- round(sim_time) # Rounds the resulting numbers to work with integers.
sim_time <- sort(sim_time) # Arrange the data in ascending order.

sim_time

## -----------------------------------------------------------------------------
binarized_data <- get_bins(sim_time, 0, 600, 20) # Note how the resolution value is 20

binarized_data