load(paste(dirname(sys.frame(1)$ofile),"/problem_st_dev_scenarios_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 options<-list() options$solver <- "buldozer" options$precision <- 9 options$stages <- 9 results <- rpsg_riskprog(input.model,options) print(results)