Формирование списка значимых результатов в R - PullRequest
Новая
       2

Формирование списка значимых результатов в R

1 голос
/ 11 марта 2020

Приведенный ниже код вычисляет список результатов (в данном случае один результат с 6 компонентами), которые либо значимы в различной степени (в данном случае отмечены знаком ***), либо нет. Как мне составить новый список только значимых результатов? В частности, я хотел бы сохранить все 6 компонентов результата (ов) при условии, что значение TE значимо в направлении X -> Y, независимо от того, верно ли это для противоположного направления, Y -> X. Как Пример ниже соответствует этому критерию, он будет частью моего нового списка: 

install.packages("RTransferEntropy")
library(RTransferEntropy)
set.seed(12345)
n <- 2500
x <- rep(0, n + 1)
y <- rep(0, n + 1)

for (i in 2:(n + 1)) {
  x[i] <- 0.2 * x[i - 1] + rnorm(1, 0, 2)
  y[i] <- x[i - 1] + rnorm(1, 0, 2)
 }

x <- x[-1]
y <- y[-1]
library(future)
# enable parallel processing for all future transfer_entropy calls
plan(multiprocess)
set.seed(12345)
shannon_te <- transfer_entropy(x, y)
shannon_te

Спасибо!

...