diff --git a/R/globals.R b/R/globals.R
index 385c5c7..82e9f2c 100644
--- a/R/globals.R
+++ b/R/globals.R
@@ -1,8 +1,8 @@
 COUNTS <- array(0, dim=c(100, 100, 100))
 SUMCOUNTS <- array(0, dim=c(100, 100))
-PARTITION <- vector()
-POP_LOGML <- vector()
-LOGDIFF <- vector()
+PARTITION <- array(1, dim=c(100))
+POP_LOGML <-  array(1, dim=c(100))
+LOGDIFF <-  array(1, dim=c(100, 100))
 # If handling globas break, try other ideas from https://stackoverflow.com/a/65252740/1169233