Proyección_Matriz_Taller_Extra.R

#Primero creamos una matriz de proyeccion (Leslie) y un vector de clases de estados con sus abundancias#
#Esta es la matriz#
A <- matrix(c(0, 20, 50, 5, 0.3, 0, 0, 0, 0, 0.5, 0, 0, 0, 0, 0.25, 0), nr = 4, byrow = TRUE)
A

##      [,1] [,2]  [,3] [,4]
## [1,]  0.0 20.0 50.00    5
## [2,]  0.3  0.0  0.00    0
## [3,]  0.0  0.5  0.00    0
## [4,]  0.0  0.0  0.25    0

#Este es el vector con las abundancias#
Nt <- matrix(c(500, 100, 300, 50), ncol = 1)
Nt

##      [,1]
## [1,]  500
## [2,]  100
## [3,]  300
## [4,]   50

#Ahora realizamos la multiplicación de matrices entre la matriz de proyección y Nt para saber el número de individuos en el siguiente año para cada estado#
Nt1= A %*% Nt
Nt1

##       [,1]
## [1,] 17250
## [2,]   150
## [3,]    50
## [4,]    75