Create portfolio_performance.R