data(ttrc)
macd <- MACD(ttrc[,"Close"])
osc <- oscillator( ttrc[,"Close"], ma.slow = list("EMA",n=26),
ma.fast = list("EMA",n=12), ma.sig = list("EMA", n=9) )
# Should be TRUE
identical(macd,osc)
Run the code above in your browser using DataLab