rm(list = setdiff(ls(), lsf.str()))
load(paste(dirname(sys.frame(1)$ofile),"/problem_men1_data.RData",sep = ""))

input.model <- list()
input.model$risk <-"pm2_pen_g"
input.model$w <- 0
input.model$H <- H
input.model$lb <- lb
input.model$ub<- ub

options<-list()
options$solver <- "buldozer"
options$precision <- 9

results <- rpsg_riskprog(input.model,options)

print(results)