給我五分鐘讓你五年翻五倍

因為 YouTube 不能貼程式碼, 所以請搭配下面的程式碼服用.
因為影片比較好吸收, 所以請搭配上面的影片服用.


#股市外行江博士的股市不負責任教學的第一堂課, 分三節課共五分鐘
#上課前準備, 請先安裝好 R 及 RStudio

#第一節課, 一分鐘用R畫股市技術分析黃金交叉死亡交叉圖表
#install.packages("quantmod")
library(quantmod)
getSymbols("AAPL")
chartSeries(AAPL,subset="last 9 months")
addSMA(10,col="blue")
addSMA(20,col="red")

#第二節課, 兩分鐘用R算給你看五年賺多少
library(quantmod)
getSymbols("AAPL")
chartSeries(AAPL['2007-03-30/2013-12-31'],theme="white")
fastMA<-runMean(AAPL[,4],n=20)
slowMA<-runMean(AAPL[,4],n=60)
addTA(fastMA,on=1,col="blue")
addTA(slowMA,on=1,col="red")
position<-Lag(ifelse(fastMA>=slowMA, 1,0))
return<-ROC(Cl(AAPL))*position
return <- return['2007-03-30/2013-12-31']
eq <- exp(cumsum(return))
addTA(eq)
plot(eq)

#第三節課, 兩分鐘教你什麼時候買什麼時候賣
sell <- function(x) {
 diff(x) < 0
}
buy <- function(x) {
 diff(x) > 0
}
chartSeries(AAPL['2007-03-30/2013-12-31'],theme="white")
addTA(fastMA ,on=1,col="blue")
addTA(slowMA,on=1,col="red")
addTA(fastMA-slowMA)
addTA(AAPL[buy(position),"AAPL.Low"] - 30, pch = 2, type = "p", col = "red", on = 1)
addTA(AAPL[sell(position),"AAPL.High"] + 30, pch = 6, type = "p", col = "green", on = 1)

#下課鐘響告訴各位同學, 投資股票有賺有賠, 投資婊子有去無回, 投資自己卡實在!
歡迎小額捐款到 bitcoin:16RnaHGW4gMcjCtedcL8AjKeKHw55AZSXc

延伸閱讀, 十幾年了, 這已經不算高科技了, 跟不上只能被淘汰了.
http://markchiang.blogspot.tw/2005/08/part1.html