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

input.model <- list()

input.model <- list()
input.model$risk <-c(-1,"logexp_sum")
input.model$H <- H
input.model$c <- c

results <- rpsg_riskprog(input.model)

print(results)