Fixed bug in complexity()

n3ssuno · Apr 28, 2018 · ea2e3a3 · ea2e3a3
1 parent fbbd976
commit ea2e3a3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/complexity.R b/R/complexity.R
@@ -114,7 +114,7 @@ complexity <- function(data, geo_dim, kng_dim, kng_nbr, time_dim = NULL,
         colnames(CI) <- c(geo_dim, time_dim, "Complexity")
 
         if (scale == TRUE) {
-            CI[, 2] <- scale(CI[, 2])
+            CI[, "Complexity"] <- scale(CI[, "Complexity"])
             warning('The values of the index have been standardised.')
         }