Hi
i dont understand how to give plot and curve exactly the same axis
plot(x=tout$x,y=tout$y,
xlab="x",ylab="y",
main="",
ylim = c(0, 10),
xlim = c(0, 5000)))
abline(bchapxy,achapxy,col="orange")
par(new=TRUE)
curve((log(x)-bchapzt)/achapzt, 0, 5000, n = 200,col="green")
do not work