R peak detection with lizhang new