wpr function

Weighted mean as a portfolio return