change # of iterations in n[6]

biometryhub · Jul 31, 2024 · bea7f55 · bea7f55
1 parent 8f9b300
commit bea7f55
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/.gitignore b/.gitignore
@@ -11,3 +11,5 @@ biometryassist.Rproj
 *.Rdata
 *.Rds
 inst/doc
+Sharon-vario-check.html
+vario for dsum - seeing how it could work.r
diff --git a/R/des_info.R b/R/des_info.R
@@ -453,7 +453,7 @@ des_info <- function(design.obj,
         # Calculate direction of blocking
         xx <- c()
         rr <- nrows / brows
-        cc <- ncols / bcols
+        cc <- ncols / bcols 
         # Blocking across rows: brows == ntrt in a single column
         if(brows == ntrt) {
             plan <- expand.grid(row = 1:nrows, col = 1:ncols) # 2

diff --git a/R/logltest.R b/R/logltest.R
@@ -147,7 +147,7 @@ logl_test <- function(model.obj, rand.terms = NULL, resid.terms = NULL, decimals
                 }
 
                 n[6] <- 1
-                while (any(model.obj1$vparameters.pc > 1) & n[6] < 10) {
+                while (any(model.obj1$vparameters.pc > 1) & n[6] < 50) {
                     model.obj1 <- quiet(update(model.obj1))
                     n[6] <- n[6] + 1
                 }