rm(list = setdiff(ls(), lsf.str())) load(paste(dirname(sys.frame(1)$ofile),"/problem_hull_meansquare_data.RData",sep = "")) input.model <- list() input.model$risk <-c(1,"meansquare",0.0189,"meansquare") input.model$H[[1]] <- H1 input.model$H[[2]] <- H2 input.model$Aeq <- Aeq input.model$beq <- 1 input.model$lb <- lb input.model$ub<- ub options<-list() options$precision <- 9 results <- rpsg_riskprog(input.model,options) print(results)