Remove empty K argument

biodiverse · Sep 4, 2024 · fef84f5 · fef84f5
1 parent 03787d4
commit fef84f5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/playRN_AHM1_6-13-1_Simulate_Royle-Nichols_model.R b/R/playRN_AHM1_6-13-1_Simulate_Royle-Nichols_model.R
@@ -27,7 +27,7 @@ umf <- unmarkedFrameOccu(y=y, siteCovs= data.frame(cov2 = data$site.cov[,2],
 # Fit data-generating model
 fm <- occuRN(~cov3+obscov ~cov2, data=umf)
 # Estimate local abundance N and plot against true N (known in simulation)
-Nest <- bup(ranef(fm, K = ), "mean")
+Nest <- bup(ranef(fm), "mean")
 if(show.plots) {
   # par(mfrow = c(1,1)) ## leave it alone
   tryPlot <- try( {