# 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)