#Identify cost-effective actions based on random vectors of benefits and costs
CEfinder(runif(50,min=0,max=10), runif(50, min=0,max=1000))
#Identify cost-effective actions based on a small number of user-specified benefits and costs
restben <- c(0, 10, 5, 20, 20)
restcost <- c(0, 100, 100, 200, 150)
CEfinder(restben, restcost)
Run the code above in your browser using DataLab