and I must be doing something wrong, because the lines do not intersect at \bar{x}, \bar{y}.
The problem is likely in the line for x.y, but I don't know how to specify that correctly.
The data is read in grouped form( galton), and then ungrouped (galton2):
galton <- read.table("~/sasuser/data/galton.txt", header=TRUE) # ungroup galton2<-galton[rep(1:nrow(galton), galton$frequency), 1:2]
attach(galton)
sunflowerplot(child, parent, number=frequency, xlim=c(61,75), ylim=c(61,75),
xlab="Child height", ylab="Mid Parent height")
# both attempts plot the same, wrong regression lines y.x <- lm(parent ~ child, weights=frequency) abline(y.x) x.y <- lm(child ~ parent, weights=frequency) abline(x.y, col="gray")
attach(galton2) y.x <- lm(parent ~ child) abline(y.x, lwd=2) x.y <- lm(child ~ parent) abline(x.y, col="gray", lwd=2)
library(car) data.ellipse(child, parent, plot.points=FALSE, levels=c(0.40, 0.68), lty=2)
The resulting figure may be seen at http://euclid.psych.yorku.ca/SCS/Gallery/Private/galton.jpg
-Michael
--
Michael Friendly Email: [EMAIL PROTECTED] Professor, Psychology Dept.
York University Voice: 416 736-5115 x66249 Fax: 416 736-5814
4700 Keele Street http://www.math.yorku.ca/SCS/friendly.html
Toronto, ONT M3J 1P3 CANADA
______________________________________________ [EMAIL PROTECTED] mailing list https://www.stat.math.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html