# 3. feladat
pontok = read.table("adat3.txt",header=TRUE)
pontok
attach(pontok)
plot(x,y) # opcionalis: type="l", type="o"
reg1 = lm(y ~ sin(x))
reg1
lines(x,fitted(reg1),col="blue")
reg2 = lm(y ~ sin(x) + cos(x))
reg2
lines(x,fitted(reg2),col="red")
plot(x,resid(reg2))
plot(fitted(reg2),resid(reg2))
summary(reg2)
# konstanshoz p-value ~ 0.4, elhagyhato
reg3 = update(reg2, .~. - 1)
# vagy reg3 = lm(y ~ sin(x) + cos(x) + 0)
reg3
plot(x,y)
lines(x,fitted(reg3),col="purple")
anova(reg1,reg2)
anova(reg3,reg2)