Подмножество Tibble в R - PullRequest
Новая
       18

Подмножество Tibble в R

0 голосов
/ 11 июня 2019

Я работаю над сценарием, который запускает функцию 10 раз для каждого значения параметров n и q: 

M=10
N=10
c=2
n=seq(1, 4, by=1)
p=0.25
q=seq(1,0.25, by =-0.05)
ntrials = 10

params <- expand.grid(
  trial = 1:10,
  M = M,
  N = N,
  c = c,
  n = n,
  p = p,
  q = q
) %>%
  as_tibble()

View(params)

# > nrow(params)
# [1] 640

# replace with your own, of course
my_madeup_function <-
  function(M, N, c, n, p, q) {
    matrix(data = rep(M * N + c - n * p * q, 100),
           nrow = 10,
           ncol = 10)
  }

# we use `purrr::pmap`, an apply-type function to pass all of the parameters (except for trials) to the function:

result <- tibble(matrix = pmap(select(params, -trial), my_madeup_function)) 


summary <- bind_cols(params, result)

Я хочу использовать матрицы из таблицы результатов в качестве входных данных для другой функции.

Как мне извлечь все матрицы из этой таблицы?

...