Create effPortfolio.R