# NOT RUN {
data("bp_jhs")
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))
jhs_proc <- process_data(bp_jhs,
sbp = "Sys.mmHg.",
dbp = "Dias.mmHg.",
bp_datetime = "DateTime",
hr = "pulse.bpm.")
rm(hypnos_data, bp_jhs)
# An example of a multiple-subject data set with
# all points aggregated across subjects, split by visits:
bp_scatter(hyp_proc)
# An example of a multiple-subject data set being filtered
# to one individual for one particular visit:
hyp_proc %>% dplyr::group_by(ID, VISIT) %>% dplyr::filter(ID == 70417, VISIT == 1) %>% bp_scatter()
# An example of a single-subject data set without
# any VISIT variable present in the data:
bp_scatter(jhs_proc)
# }
Run the code above in your browser using DataLab