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

>>阅读原文<<