为R中的多根应用矩阵的每一行

我有一个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")

m=矩阵（c（1,3,4,6,7,8,9,2，-3，-5,6,2），nrow=3）
colnames（m）这不就是：

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

apply（apply（m，1，polyroot），2，函数（x）ifelse（abs（Im（x））<0.00001，x，NA））
[,1]         [,2]          [,3]
[1，]NA-0.416256-0i-0.4167669+0i
[2，]NA-NA
[3，]2.34748+0iNa
谢谢，但是我怎样才能得到最大的实根呢？好吧，这不是最初的问题，是吗？不，苏瑞，我忘了提它了。