library("PSG")

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


input.model <- list()
input.model$d <- d
input.model$risk2 <- "cdar_dev"
input.model$w2 <- 0.95
input.model$H2 <- H2
input.model$rineq <-0.11
input.model$lb <- 0.2
input.model$ub<- 0.8

results <- rpsg_riskconstrprog(input.model)

print(results)