如何使用sapply循環函數？

Question

我想計算二次方程的不同y值的根。 但是，當我運行以下代碼得到一個我不明白的錯誤。 如果y只是一個數值，而不是向量c（0.6,0.4,0.9），它就可以工作。 我錯誤地使用了sapply，還是將變量傳遞給函數是錯誤的？

# Paramters for quadratic poly
a<-0.875
b<-0.3779
c<-0.098
y<- c(0.6,0.4,0.9)

# quadratic function
fun<-function(x) c-y+b*x+a*x^2

# Finding root in specific interval function
root<- function (x) uniroot(fun,c(0,2))$root

# Finding roots for a list of y values
res<-sapply(y,root)

Answer 1

你可以這樣做：

 sapply(y,function(y) uniroot(fun,c(0,2),y=y,c=c,a=a,b=b))