Как добавить термин Edgemm () Edgemm модели в пакете latentnet в R - PullRequest
Новая
       36

Как добавить термин Edgemm () Edgemm модели в пакете latentnet в R

0 голосов
/ 25 марта 2019

У меня есть временная двухсторонняя сеть авторов и тем, я делаю модель ML, которая включает в себя термин, который должен представлять особенность постоянства края. Я использую пакет latentnet в R.

Итак, я добавил сетевой атрибут с именем «edge_persistence» и пытаюсь добавить термин edgecov(). Я получаю эту ошибку, когда я включаю этот термин edgecov ().

Ошибка в xa [cbind (pl $ xmat [, 1: 2, drop = FALSE], k)] <- pl $ xmat [, k + 2]: нижний индекс за пределами границ </p>

Вот частичный исходный код: 

#creating the network
net <- network(year_matrix, vertex.attr = NULL, vertex.attrnames = NULL, directed = FALSE, hyper = FALSE, loops = FALSE, multiple = FALSE, bipartite = 2)

#calculating the number of edges
no_of_edges = 0
for(i in c(1:length(author_nodes)))
{
  for(j in c(1:length(topic_nodes)))
  {
    no_of_edges = no_of_edges+1
  }
}

#forming the edge_persistance_vector
edge_persistance_vector <- vector("numeric", no_of_edges)
temp_itr=1
for(i in c(1:length(author_nodes)))
{
  for(j in c(1:length(topic_nodes)))
  {
    if(year_matrix[i, j]==1)
    {
      if(prev_year_matrix[i, j]==1)
      {
        edge_persistance_vector[temp_itr] = 1
      }
      else
      {
        edge_persistance_vector[temp_itr] = 0
      }
    }
    else
    {
      edge_persistance_vector[temp_itr] = 0
    }
    temp_itr = temp_itr+1
  }
}

#adding the network attribute
set.network.attribute(net, attrname = "edge_persistance", value = edge_persistance_vector)

#making the model
ergmm_result <- ergmm(formula = net ~ euclidean(d=2, G=3) + rsociality(var=1, var.df=3) + edgecov("edge_persistance"), verbose = TRUE)

А вот ошибка, которую я получаю, если включить edgecov("edge_persistance") термин

Ошибка в xa [cbind (pl $ xmat [, 1: 2, drop = FALSE], k)] <- pl $ xmat [, k + 2]: нижний индекс за пределами границ </p>

Может кто-нибудь подсказать, пожалуйста, как я могу устранить эту ошибку "подстрочный знак"? Заранее спасибо !!

...