Cumulative return is the compounded return in a given period.
pt.cmrtn(r)
r
:a vector of periodic returns
rt <- runif(12,-1,1) # generate random number to simulate returns pt.cmrtn(rt)