Fixed a bug in coherence(), and so in coherence_panel()

n3ssuno · Apr 29, 2018 · 76ed217 · 76ed217
1 parent ea2e3a3
commit 76ed217
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/coherence.R b/R/coherence.R
@@ -107,7 +107,8 @@ coherence <- function(data, geo_dim, kng_dim, kng_nbr,
         stop('null_model must be of "reks_null_model" class')
     }
 
-    ee <- .get_biadj_matrix(data, geo_dim, kng_dim, kng_nbr, 'simple')
+    # ee <- .get_biadj_matrix(data, geo_dim, kng_dim, kng_nbr, 'simple')
+    ee <- .get_biadj_matrix(data, geo_dim, kng_dim, kng_nbr, 'none')
 
     en <- colnames(ee)
     nc <- setdiff(colnames(null_model$t), colnames(ee))