如何使用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))