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

input.model <- list()
input.model$risk1 <-c(-1,"logexp_sum")
input.model$H1 <- H1
input.model$c1 <- c1

input.model$risk2 <-"cardn"
input.model$w2 <- 0.000001
input.model$H2 <- H2
input.model$rineq <- 4

options<-list()
options$precision <- 9
options$linearization2 <- 1

results <- rpsg_riskconstrprog(input.model,options)

print(results)