You could try to see ?polyroot.

题目应该为x^2-2X-6不然x^2-2X+6没解。
下面为r代码
#############自己构建一个方程
f2 <- function (x, a, b, c) a*x^2+b*x+c
######a，b，c为参数
a<-1;b<--2;c<--6
########用uniroot函数求解
result<-uniroot(f2,lower =-2,upper=2,a=a,b=b,c=c,tol=0.0001)
result$root
算出一个左根为-1.645754，那么右根自然为-1.645754-b/2=-0.64575
所以区间在-1.6457到-0.64575满足不等式。