load(paste(dirname(sys.frame(1)$ofile),"/problem_st_dev_covariances_2p9_data.RData",sep = "")) input.model <- list() input.model$risk <- "st_dev" input.model$H <- H1 input.model$Aineq <- A input.model$bineq <- -0.029 input.model$Aeq <- Aeq input.model$beq <- 1 input.model$lb <- lb results <- rpsg_riskprog(input.model) print(results)