應用一個矩陣的每一行用於polyroot中的R

Question

我有amatrix m其包括三次多項式的係數的不同值，並且我想找到這些三次函數的最大實根。我怎樣才能做到這一點R中？

 m = matrix(c(1, 3, 4, 6, 7, 8, 9, 2, -3, -5, 6, 2), nrow = 3) 
     colnames(m) <- c("d", "c", "b", "a") 

我想用polyroot爲m矩陣中的每一行，我怎麼能做到這一點的R'

Answer 1

這是不是僅僅是：

apply(m , 1, polyroot) 

...記憶，當然，該結果將在列的順序。

apply(apply(m, 1,polyroot) , 2, function(x) ifelse(abs(Im(x)) < 0.00001, x,NA)) 
      [,1]   [,2]   [,3] 
[1,]   NA -0.416256-0i -0.4167669+0i 
[2,]   NA   NA   NA 
[3,] 2.34748+0i   NA   NA