help(faithful)

y=faithful$eruptions
x=faithful$waiting

modell=lm(y~x,data=faithful)
# modell=lm(y~x1+x2+x3,data=...)   # 3 magyarazo valtozo esete
help(lm)    # linear model

print(modell)   # kiirja a becsult egyutthatokat
summary(modell)   # teszteli az egyutthatok szignifikanciajat, kiirja az R^2 egyutthatot

predict(modell,data.frame(x=80))  # ha 80 percet varunk a kitoresre, mennyi ideig tart az?
help(predict.lm)