library("PSGExpress") #library("PSG")
#load(" <your path> /problem_kb_err_data.RData")
#load(paste(dirname(sys.frame(1)$ofile),"/problem_kb_err_data.RData",sep = "")) #only for Windows

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

results <- rpsg_riskprog(input.model)

print(results)