From a99bc98fbd8b031ee66ca7a6b5a5b57003a639cc Mon Sep 17 00:00:00 2001
From: checcomi <checcomi@gmail.com>
Date: Mon, 20 Apr 2020 12:00:30 +0100
Subject: [PATCH] typo

---
 R/multiSitePrebas.r | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)