Я сгенерировал 1000 случайных матриц 2x2 с:
M = lapply (1: 1000, матрица функции (z) (runif (1000, min = -10, max = 10), ncol =2, nrow = 2)) eig = lapply (M, eigen)
Заранее большое спасибо!
Мы можем извлечь «значения» из списка, используя [[, зацикливая элементы list с sapply, и это делается с base R
[[
list
sapply
out <- c(sapply(eig, `[[`, "values")) plot(out)
Или с pluck
pluck
library(tidyverse) map(eig, pluck, "values") %>% unlist
Если вы хотите решение Base R, вы можете превратить его в
mats <- matrix(unlist(lapply(e, function(x) lapply(x, unlist)$values)), ncol = 2, byrow = T)