SR  Econ    Result
0.24    2.57    1
0.32    3.75    1
0.12    4.86    1
0.45    2.12    1
0.18    2.7     0
0.22    2.22    0
0.36    1.04    1
0.76    2.42    1
0.2     2.12    0

ee <- 0.2286 + 7.1454*s  -0.1032*er
 #fit <- glm(Result~ SR+Econ,data=df,family=binomial())

s <- seq(from=0,to=1.0,by=0.05)
er <- seq(from=0,to=5,length=21)
ee <- predict(fit, list(s),type="response")
lines(s,ee)