#Identify cost-effective actions based on random vectors of benefits and costs
altnames<- paste("Alt",seq(1,50), sep="")
benefit <- runif(50,min=0,max=10)
cost <- runif(50, min=0,max=1000)
CE <- CEfinder(benefit, cost)
BB <- BBfinder(benefit, cost, CE)[[1]][,4]
CEICAplotter(altnames, benefit, cost, CE, BB, tempfile("CEICAexample",fileext=".jpeg"))
Run the code above in your browser using DataLab