library("PSGExpress") #library("PSG")

#load("<ypur path>/problem_CVaR2_dev_riskprog.RData")

input.model <- list()
input.model$risk <- "cvar2_dev"
input.model$w <- 0.9
input.model$H <- H
input.model$c <- cdata

results <- rpsg_riskprog(input.model)

print(results)