Questions

set.seed(1)
x <- 1:100
y <- 2 * x + rnorm(100, sd = 0.1)
fit.Y <- lm(y ~ x + 0)
fit.X <- lm(x ~ y + 0)
x <- 1:100
y <- 100:1
fit.Y <- lm(y ~ x + 0)
fit.X <- lm(x ~ y + 0)