Analyzing Bitcoin in R - Part 9 - For fun: Technical Analysis indicators

png(filename = "ta-1.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addADX()'); dev.off();
png(filename = "ta-2.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addATR()'); dev.off();
png(filename = "ta-3.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addBBands()'); dev.off();
png(filename = "ta-4.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addCCI()'); dev.off();
png(filename = "ta-5.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addCMF()'); dev.off();
png(filename = "ta-6.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addCMO()'); dev.off();
png(filename = "ta-7.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addDEMA()'); dev.off();
png(filename = "ta-8.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addDPO()'); dev.off();
png(filename = "ta-9.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addEMA()'); dev.off();
png(filename = "ta-10.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addEnvelope()'); dev.off();
png(filename = "ta-11.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addEVWMA()'); dev.off();
png(filename = "ta-13.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addMACD()'); dev.off();
png(filename = "ta-14.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addMomentum()'); dev.off();
png(filename = "ta-15.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addROC()'); dev.off();
png(filename = "ta-16.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addRSI()'); dev.off();
png(filename = "ta-17.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addSAR()'); dev.off();
png(filename = "ta-18.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addSMA()'); dev.off();
png(filename = "ta-19.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addSMI()'); dev.off();
png(filename = "ta-20.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addTRIX()'); dev.off();
png(filename = "ta-21.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addVo()'); dev.off();
png(filename = "ta-22.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addWMA()'); dev.off();
png(filename = "ta-23.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addWPR()'); dev.off();
png(filename = "ta-24.png"); chartSeries(rawdailyohlc['2017-08-01/'], name = 'Bitcoin USD', theme = 'white', TA = 'addZLEMA()'); dev.off();