powered by
wpr(r, w)
wpr(r=c(0.12, 0.07, 0.03),w=c(0.5,0.4,0.1))
Run the code above in your browser using DataLab