AA=read.table('D:/2.CODE/幫忙解答/2015_min_K.txt',sep=',',header=T)
AA$Date=paste(substr(AA$Date,1,4),substr(AA$Date,5,6),substr(AA$Date,7,8),sep='-')
AA$Date=as.Date(AA$Date)
k=14
Date='2015-05-15'
max_price=function(Date,k){
day=as.Date(Date)
max_P=max(AA[as.Date(AA$Date)>=day-k&as.Date(AA$Date)<=day,c('High')])
return(max_P)
}
max_price(Date,k)
我用的方法比較簡單一些 你試看看~~~
其他也最低價也能照推
這個指標的作用是什麼呀!? 可以介紹一下嗎?......
涂銘仙於 2015年12月30日星期三 UTC+8下午10時40分38秒寫道: