rm(list = setdiff(ls(), lsf.str())) load(paste(dirname(sys.frame(1)$ofile),"/problem_LOGEXPSUM_RegLikelihood_data.RData",sep = "")) input.model <- list() input.model <- list() input.model$risk <-c(-1,"logexp_sum",1,"polynom_abs") input.model$H[[1]] <- H1 input.model$H[[2]] <- H2 input.model$c[[1]] <- c1 input.model$c[[2]] <- NULL results <- rpsg_riskprog(input.model) print(results)