function [hrt, hr] = loadhr(filenew)
[ecgfilename, cdfilename, rrfilename, hrfilename, ecgfilenameonly] = chooser(filenew);
[hrt hr] = textread(hrfilename,'%f %f',-1, 'headerlines', 1);