# NOT RUN {
## Load hypnos_data
data(hypnos_data)
## Process hypnos_data
hypnos_proc <- process_data(hypnos_data,
sbp = 'syst',
dbp = 'diast',
bp_datetime = 'date.time',
hr = 'hr',
pp = 'PP',
map = 'MaP',
rpp = 'Rpp',
id = 'id',
visit = 'Visit',
wake = 'wake')
dip_calc(hypnos_proc)
# }
Run the code above in your browser using DataLab