Added portfolio.R file