Fixed #46 with corrected fork for plotting

GotelliLab · Feb 24, 2015 · 179626a · 179626a
1 parent 521e781
commit 179626a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/coccurrence_null.R b/R/coccurrence_null.R
@@ -147,7 +147,8 @@ plot.coocnullmod <- function(x, type = "hist",...)
   if(type == "cooc"){
   Date.Stamp=date()
   par(mfrow=c(1,2))
-  if(is.na(nullmodObj$burn.in)){
+#  if(is.na(nullmodObj$burn.in)){
+if(nullmodObj$Algorithm!="sim9"){
   Fun.Alg <- get(nullmodObj$Algorithm)
   } else {
     Fun.Alg <- sim9_single