R/Bascket.R

In pooya1991/BillioR: Billionaire Startup

Bascket <- function(rn){
  n <- length(PortfolioRisks)
  nam <- colnames(PortfolioRisks[[1]])
  PR <- data.frame(matrix(unlist(PortfolioRisks),nrow = n,byrow=T))
  colnames(PR) <- nam
  y <- PR[PR[,4] == rn,]
  y <- y[with(y, order(-strength)), ]
  id <- y[1,1]
  Portfolios[[id]][,-dim(Portfolios[[id]])]
}