Displaying 1 result from an estimated 1 matches for "normy1".
Did you mean:
norm1
2009 Mar 15
0
Axes crossing at origin
...)
y2=seq(16.35,16.65,0.003)
x1=predict_amount(fit,y1,TRUE)
x2=predict_amount(fit,y2,TRUE)
norm1=normpdf(y1,17.1,0.045)
norm1=min(newy)+norm1/max(norm1)*.5
norm2=normpdf(y2,16.5,0.045)
norm2=min(newy)+norm2/max(norm2)*.5
lines(x1,norm1,col="#0000FF")
lines(x2,norm2,col="#FF0000")
normy1=normpdf(y1,17.1,0.045)
normy1=normy1/max(normy1)*-.3e-10+max(newdata)
normy2=normpdf(y2,16.5,0.045)
normy2=normy2/max(normy2)*-.3e-10+max(newdata)
lines(normy1,y1,col="#0000FF")
lines(normy2,y2,col="#FF0000")
dev.off()
Thanks,
Markus Nenniger
[[alternative HTML version delet...