Create portfolioRiver.R