R語言數據重塑sapply、ddply

r語言相關知識 BMAverageDrawDown<-function(Rp,…){ #tmp[tmp<0]，即爲回撤序列 tmp <- period.apply(Rp,PTTurningPoint(Rp),FUN=function(Rp){min(cumprod(1+Rp)-1)}) -mean(tmp[tmp<0]) } 計算平均回撤率，輸入一個xts格式的序列，產生一個值。 period.a

>>阅读原文<<