Using exponential smoothing method to profile stock data

Using exponential smoothing method to profile stock data

exponentialSmoothing(data, newColname, alpha = 0.3)

Arguments

data	xts a time series object
newColname	character
alpha	numeric

Value

xts

Examples

options("getSymbols.warning4.0"=FALSE)
quantmod::getSymbols("AAPL")
#> Registered S3 method overwritten by 'quantmod':
#>   method            from
#>   as.zoo.data.frame zoo 
#> [1] "AAPL"
exp_smoothing_AAPL <- exponentialSmoothing(
    AAPL,paste("expsmoothing", colnames(AAPL), sep="_") , 0.3
    )