#Zadanie 1 dane=read.csv2("test_regresji.csv") dane attach(dane) reg=nls(y~a*x^2+b*x+c,start=list(a=0,b=0,c=0)) summary(reg) porz=order(x) plot(x[porz],y[porz]) lines(x[porz],fitted(reg)[porz],col="red") #Zadanie 2 reg2=loess(y~x) summary(reg2)
aivliska