eloszlasok

#ez itt fontos lehet
set.seed(38)
n=20
a=32;b=5
x=rnorm(n)
epsilon=rnorm(n)
y=a+b*x+0.1*epsilon
plot(x,y)


#hey0
set.seed(38)
n=20
a=32;b=5
x=rnorm(n)
epsilon=rnorm(n)
z=a+b*x+epsilon
plot(x,z)

#hey1
set.seed(38)
n=20
a=32;b=5
x=rnorm(n);
epsilon=rnorm(n)
y=a+b*x+0.1*epsilon
plot(x,y)
abline(a,b,lty=2,lwd=3)

abline(lm(y~x), col="red", lwd=3)

summary(lm(y~x))

#hey2
set.seed(38)
n=20
a=32;b=5
x=rnorm(n);
epsilon=rnorm(n)
z=a+b*x+epsilon
plot(x,z)
abline(a, b, lty=2, lwd=3)

abline(lm(z~x), col="red", lwd=3)

summary(lm(z~x))

#hey3
set.seed (38)
n=20
a=32;b=5
x=rnorm(n);
epsilon=rnorm(n)
y=a+b*x+5*epsilon
abline(a, b, lty=2, lwd=3)
plot(x, y)
abline(lm(y~x), col="red", lwd=3)

summary(lm(y~x))

#hey4
set.seed(38)
n=200
a=32;b=5
x=rnorm(n);
epsilon=rnorm(n)
y=a+b*x+5*epsilon
plot(x,y)
abline(a, b, lty=2, lwd=3)

abline(lm(y~x), col="red", lwd=3)

summary(lm(y~x))