Контрольная работа исследование функции в R

Контрольная работа исследование функции в R
f2=function(x){(1.3*(x^4)-3*(x^3)+2*x-0.2)/(x^4+3)}
xn=-10
xv=-0.5
x=seq(xn,xv,length.out = 100);x
y=f2(x)
plot(x,y,"l")
abline(h=0,v=0,col="red")
i4=which.min(abs(y));i4
x[i4]
i4=which.min(y);i4
x[i4]
ymin=y[i4];ymin
i4=which.max(y);i4
x[i4]
i4=which.max(y);i4
ymin=y[i4];ymin