find the intersection of abline with fitted curve
问题 I plotted a logistic curve with its fit using the following codes: data:L50 str(L50) 'data.frame': 10 obs. of 3 variables: $ Length.Class: int 50 60 70 80 90 100 110 120 130 140 $ Total.Ind : int 9 20 18 8 4 4 1 0 1 2 $ Mature.Ind : int 0 0 6 5 3 2 1 0 1 2 plot(L50$Mature.Ind/L50$Total.Ind ~ L50$Length.Class, data=L50,pch=20,xlab="Length class(cm)",ylab="Proportion of mature individuals") glm.out<-glm(cbind(L50$Mature.Ind, L50$Total.Ind-L50$Mature.Ind) ~ L50$Length.Class,family=binomial(logit