powered by
This function give the semivariance of a losing scenario.
pt.semivar(r,p)
:a vector of periodic returns
:target return
# NOT RUN { rt <- runif(12,-1,1) # generate random number to simulate returns pt.semivar(rt,0) pt.semivar(rt,0.03) # }
Run the code above in your browser using DataLab