如何设置计数器来跟踪不同的特征值？

Question

我有一个作业问题，这真的使我发疯，因为我是R语言的新手。谢谢！！！该问题包括我列出的几个部分：

1. 生成1000个2x2矩阵，其元素是介于-10到10之间的随机数（并非所有整数）

2. 对于每个矩阵，计算特征值。绘制每个特征值；大约三分之一会很复杂。您的情节将包含大约2000点。

3. 对于每个矩阵，确定系统是否为稳定节点（特征值均为实值和负值）；不稳定的节点（特征值都是实数和正数）;一个鞍（特征值都是真实的，一个是正的，另一个是负的）；稳定的焦点（复杂的特征值，负实部）；不稳定的焦点（具有正实部的复杂特征值）;或中心（虚构特征值，实部为零）。不要打印出所有特征值！我只想查看每个类别中有多少个计数。例如，250个是稳定节点，130个是鞍状，等等。

因此，我了解伪代码，但是不确定如何生成命令。在一些帮助下，我已经能够生成具有随机值的1000个2x2矩阵，但似乎无法对不同的特征值节点和每个计数器进行分类。

这是我用来生成具有随机值的1000个2x2矩阵的代码

mats <- lapply(1:1000, function(x) matrix(runif(4), ncol = 2, nrow = 2))
eigens <- lapply(mats, eigen)

这些是我的柜台

SFcounter=0
USFcounter=0
Centercounter=0
Saddlecounter=0
SNcounter=0
USNcounter=0

我尝试过if语句，但是代码没有任何反应

if (is.complex(eigens[["values]]==FALSE) {Saddlecounter=Saddlecounter+1}

最后，我需要帮助将我的伪代码转换为实际的R代码。使用我的1000个特征值集，我需要能够测试每组特征值来对它们进行分类，然后设置一个计数器来跟踪每个节点。