How to Do Best Fit Sin Model in R Studio