This nice code of yours didn't work for me. I followed your suggestion to no avail. See below, please.
R> getSymbols("AAPL")
[1] "AAPL"
R> addFibonacci <- newTA(Fibonacci,on=1)
R> chartSeries(AAPL, TA="addFibonacci()")
Error in runMin(x, n = n) (from #4) :
ncol(x) > 1. runMin only supports univariate 'x'
R> R> Fibonacci(AAPL)
Error in runMin(x, n = n) (from #4) :
ncol(x) > 1. runMin only supports univariate 'x'
R>
How to solve it?
TIA,
Andre Luiz