# 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))
vis_response_counts(reg_PAM, response = "m")
# }
Run the code above in your browser using DataLab