I have been attempting to fine-tune the parameters of the \texttt{baselinefit()} function. Increasing the number of iterations above 100 have been useless. Small changes in \texttt{gam} leads to noticeable changes in the peak and kernel distribution.