Scripts for the Complex Exponential Smoothing in R