function rr = tachogram(textfile)
    maxs = plotqrs(textfile,200);

    for i=1:length(maxs)

        if  (i<length(maxs))

            rr(i) = maxs(i+1)-maxs(i);

        end

    end


    plot (rr)

    return;

end