R/get.day.number.r

In wviechtb/esmpack: Functions that Facilitate Preparation and Management of ESM/EMA Data

# Helper functions to recover day and beep numbers.

# Construct day numbers from notification numbers.
get.day.number <- function(notification.number, beeps.per.day = 10, total.notifications = 50) {
    # Reality check.
    if(total.notifications %% beeps.per.day > 0) stop("Same number of beeps expected across all days.")

    # How many days did we measure?
    total.days <- total.notifications / beeps.per.day

    # Day.
    determined.day = NA

    # Offset days by -1.
    for(i in 0:(total.days - 1)) {
        # Possible notifications for current day.
        notifications.for.day <- (i * beeps.per.day + 1):((i + 1) * beeps.per.day)

        # Is the notification in this set?
        if(notification.number %in% notifications.for.day) {
            # Then set the day.
            determined.day <- i + 1

            # And break free.
            break
        }
    }

    return(determined.day)
}