绘制R中的函数的反衍生物

Question

在我的作业中，我必须绘制一个函数的反衍生物。 功能：

newF <- function(x) {0.75 - 0.75*x^2}

现在我需要得到它的反衍生物。我可以像这样得到上下值之间的积分：

newFVec <- Vectorize(newF) #Vectorize F to get a valid input for plot method
F <- function(t) {integrate(newF, lower = -2, upper = 2)$value} # get integral between -2 and 2

FVec <- Vectorize(F) #Vectorize the antiderivative


plot(FVec, type="b", from = -2, to = 2, lty = 1, col = "blue") #try to plot FVec

如果我这样做，它只会在4/3画一条线。当然这是正确的。但我需要的是一个图表，它显示了我将在函数中放入的每个值的值。 （从范围-1到1）或简单地说：我需要x作为上限值，-1需要-1作为较低值。

我知道我可以定义f的反衍生物，但作业说它只想通过FVec的定义来计算integrate()。我怎么能这样做？我真的在搜索它，但每个案例都太具体了。我真的希望你能帮助我。