コードはこの下にあります。
altura <- read.table("altura.txt", header=T, quote="\"")
altura <- cbind(altura, altura$Esposa/altura$X.Marido, altura$X.Marido/altura$Esposa)
is.data.frame(altura)
names(altura) <- c("marido","esposa","r1","r2")
with(altura,plot(marido~esposa))
g1 <- lm(altura$esposa~altura$marido)
summary(g1)
abline(g1$coefficients)
abline(0,1,lty=5)
with(altura,plot(esposa~marido))
g2 <- lm(altura$marido~altura$esposa)
summary(g2)
abline(g2$coefficients)
abline(0,1,lty=5)
cor(altura$marido,altura$esposa)
単純な回帰直線は点群を通過しません。abline は、集計関数からの正しい切片を使用しています。これは初めてではありません。ご覧のとおり、両方のグラフで私はこの問題を抱えています。1 本の線は点の上を通り、もう 1 本の線は下を通過します。