ff of an offer # model negotiations, benefits, and other things here # (a simple way to model benefits though is just to change ev.no) payoff <- function(x) { tmp <- exp(-theta[1]-theta[2]*x) return( (ev.no + ifelse(ev.no>x*p.payoff,ev.no,x*p.payoff)*tmp)/(1+tmp) ) } yseq <- payoff(xseq) # plots par(mfrow=c(1,2)) plot(xseq,yseq1,type='l',