# NOT RUN {
data("bp_jhs")
data("bp_hypnos")
data("bp_ghana")
hypnos_proc <- process_data(bp_hypnos,
bp_type = 'abpm',
sbp = "syst",
dbp = "DIAST",
date_time = "date.time",
id = "id",
wake = "wake",
visit = "visit",
hr = "hr",
map = "map",
rpp = "rpp",
pp = "pp",
ToD_int = c(5, 13, 18, 23))
jhs_proc <- process_data(bp_jhs,
sbp = "Sys.mmHg.",
dbp = "Dias.mmHg.",
date_time = "DateTime",
hr = "pulse.bpm.")
rm(bp_hypnos, bp_jhs)
# HYPNOS Data
bp_scatter(hypnos_proc,
inc_crisis = TRUE,
inc_low = TRUE,
group_var = "wake",
wrap_var = "day_of_week")
# JHS Data
bp_scatter(jhs_proc,
plot_type = "AHA",
group_var = "time_of_day")
# Ghana Data Set
#(Note that column names are of proper naming convention so no processing needed)
bp_scatter(bp::bp_ghana, inc_crisis = TRUE, inc_low = FALSE, group_var = "TIME_ELAPSED")
# }
Run the code above in your browser using DataLab