# NOT RUN {
data("hypnos_data")
hyp_proc <- process_data(hypnos_data,
sbp = "syst",
dbp = "DIAST",
bp_datetime = "date.time",
id = "id",
wake = "wake",
visit = "visit",
hr = "hr",
map = "map",
rpp = "rpp",
pp = "pp",
ToD_int = c(5, 13, 18, 23))
rm(hypnos_data)
dow_tod_plots_tmp <- dow_tod_plots(hyp_proc)
grid::grid.draw(
gridExtra::grid.arrange(dow_tod_plots_tmp[[1]], dow_tod_plots_tmp[[2]],
dow_tod_plots_tmp[[3]],dow_tod_plots_tmp[[4]],
nrow = 2, ncol = 2)
)
# }
Run the code above in your browser using DataLab