高校数学の質問スレ Part438

試しにChatGPTに投げたら、正解を即答されてしまった。

こういうヒントをR言語で準備していたのだが。

par(mfrow=c(1,2))
par(bty='l')

n=1000
x=rnorm(n,runif(1),runif(1))
x=rnorm(n)
y=sample(x)
cor(x,y)
plot(x,y,pch=16,col=2)
plot(x,y-x,pch=16,col=rgb(0,0,1,0.3))
re=lm(I(y-x)~x)
abline(re,lty=3)
summary(re)