# NOT RUN {
# Load data
data(bp_hypnos)
data(bp_jhs)
# Process bp_hypnos
hyp_proc <- process_data(bp_hypnos, sbp = "SYST", dbp = "DIAST", date_time = "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.", date_time = "DateTime",
hr = "Pulse.bpm.")
# BP Center Calculation
bp_center(hyp_proc, subj = c(70417, 70435))
# }
Run the code above in your browser using DataLab