x1 <- runif(1000, min=1, max=100)
y <- runif(1000, min=1, max=100)

x2 <- y+x1
cor(x1,x2)
cor(x1,y)
cor(x2,y)
lm1 <- lm(y~x2)
coef(lm1)
lm2 <- lm(y~x2+x1)
coef(lm2)