# NOT RUN {
d <- tempdir()
download_studentlife(location = d, url = "testdata")
tab_PAM <- load_SL_tibble(schema = "EMA", table = "PAM", location = d)
reg_PAM <- regularise_time(
tab_PAM, blocks = c("day", "epoch"), m = mean(picture_idx, na.rm = TRUE))
# Returns TRUE
is_reg_SL_tibble(reg_PAM)
# }
Run the code above in your browser using DataLab