diff --git a/R/multiSitePrebas.r b/R/multiSitePrebas.r
index a86b9b1..eca7020 100644
--- a/R/multiSitePrebas.r
+++ b/R/multiSitePrebas.r
@@ -49,7 +49,7 @@ InitMultiSite <- function(nYearsMS,
   # nSp <- siteInfo[,9]
   climIDs <- siteInfo[,2]
   # if(all(is.na(multiInitVar)) & all(is.na(nSp)) nSp <- rep(3,nSites)
-  allSp = dim(pCROBAS)[2]#max(siteInfo[,9])#ncol(pCROBAS)
+  allSp = ncol(pCROBAS)
   varNam <- getVarNam()
   nVar <- length(varNam)