составление 1000 таблиц непредвиденных расходов в R

Question

У меня есть вектор, называемый «комбинированный» с 1 и 0

combined
1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0

Я дважды выбрал этот вектор, каждый с размером выборки 3, и поместил его в таблицу случайных чисел следующим образом.

2    1
1    2

Я хочу повторить эту выборку 1000 раз, так что я заканчиваю 1000 таблицами непредвиденных обстоятельств, каждая из которых имеет счет 1 и 0 из выборки.

Вот что я попробовал:

sample1 = as.vector(replicate(10000, sample(combined, 3)))
sample2 = as.vector(replicate(10000, sample(combined, 3)))
con_table = table(sample1,sample2)

, но в итоге я получил только 1 стол вместо 10000. Надеясь получить помощь.

    8109 7573
    7306 7012

Answer 1

Вам нужно обернуть все выражение, sample и table внутри replicate.Добавьте преобразование в factor, чтобы всегда получать таблицу 2x2.Например, простая версия с 2 репликациями:

combined <- rep(0:1,each=10)
combined <- as.factor(combined)
replicate(2, table(sample(combined,3), sample(combined,3)), simplify=FALSE)
#[[1]]
#   
#    0 1
#  0 0 1
#  1 1 1
#
#[[2]]
#   
#    0 1
#  0 1 1
#  1 0 1