# NOT RUN {
# Load data
data(hypnos_data)
data(bp_jhs)
# Process hypnos_data
hypnos_proc <- process_data(hypnos_data, sbp = "SYST", dbp = "DIAST", bp_datetime = "date.time",
id = "id", wake = "wake", visit = "visit", hr = "hr", pp ="pp", map = "map", rpp = "rpp")
# Process bp_jhs data
jhs_proc <- process_data(bp_jhs, sbp = "Sys.mmHg.", dbp = "Dias.mmHg.", bp_datetime = "DateTime",
hr = "Pulse.bpm.")
# BP Center Calculation
bp_center(hypnos_proc, subj = c(70417, 70435))
# }
Run the code above in your browser using DataLab