m <- matrix(c( 4, 6, 10,
3, 10, 13,
-2, -6, -8), byrow = TRUE, nrow = 3, ncol = 3,
dimnames = list(c("p1", "p2", "p3"), c("p1", "p2", "p3")))
m
eigenvalues_byname(m)
eigenvalues_byname(list(m, 2*m))
DF <- tibble::tibble(m_col = list(m, 2*m)) %>%
dplyr::mutate(
eigen_col = eigenvalues_byname(m_col)
)
DF$eigen_col[[1]]
DF$eigen_col[[2]]
Run the code above in your browser using DataLab