fixed error in order of calculating bridge centralities bridgeClosene…

…ss and bridgeBetweenness
cvborkulo · Oct 14, 2020 · 5e23bb1 · 5e23bb1
1 parent 1c87246
commit 5e23bb1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/NCT.R b/R/NCT.R
@@ -147,8 +147,8 @@ NCT <- function(data1, data2,
   validCentrality <- c("closeness", "betweenness", 
                        "strength", "expectedInfluence", "bridgeStrength", 
                        "bridgeCloseness", "bridgeBetweenness", "bridgeExpectedInfluence")
-  bridgecen <- c("bridgeStrength", "bridgeCloseness", 
-                 "bridgeBetweenness", "bridgeExpectedInfluence")
+  bridgecen <- c("bridgeStrength", "bridgeBetweenness", 
+                 "bridgeCloseness", "bridgeExpectedInfluence")
   centrality <- if(centrality[1]=="all") {
     validCentrality
   }else {