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

#load("<your path>/problem_kb_err_riskprog_data.RData")


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

results <- rpsg_riskprog(input.model)

print(results)