# Hurwitz-stable (spectral abscissa < 0):
x <- matrix(
data = c(
-0.5, -0.2,
1.0, -0.3
),
nrow = 2
)
SpectralAbscissa(x = x) # < 0
# Unstable (spectral abscissa > 0):
x <- matrix(
data = c(
0.10, 0.50,
-0.40, 0.20
),
nrow = 2
)
SpectralAbscissa(x = x) # > 0
Run the code above in your browser using DataLab