Fixed bug where number of reps wasn't printing. #45

GotelliLab · Feb 28, 2015 · 5a14f61 · 5a14f61
1 parent 774eb2f
commit 5a14f61
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/null_model_engine.R b/R/null_model_engine.R
@@ -67,7 +67,7 @@ null_model_engine <- function(speciesData, algo, metric, nReps = 1000, rowNames
 
 
 
-  nullModelOut <- list(Obs=obs,Sim=sim, Elapsed.Time=elapsedTime, Time.Stamp=timeStamp,Metric = metric, Algorithm = algo, n.reps = nReps, 
+  nullModelOut <- list(Obs=obs,Sim=sim, Elapsed.Time=elapsedTime, Time.Stamp=timeStamp,Metric = metric, Algorithm = algo, nReps = nReps, 
                        Reproducible = saveSeed,RandomSeed = randomSeed, Data = speciesData,Randomized.Data = finalRandomData)
   class(nullModelOut) <- "nullmod"
   return(nullModelOut)