Update S3 print method for row-column design

DidierMurilloF · Jul 23, 2024 · 2718d72 · 2718d72
1 parent d49d648
commit 2718d72
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 7 deletions.
diff --git a/R/utils_S3_methods.R b/R/utils_S3_methods.R
@@ -157,9 +157,9 @@ print.FielDHub <- function(x, n=10, ...){
         "\n")
     print(head(x$fieldBook, n=nhead_print, ...))
   } else if (x$infoDesign$id_design == 9) {
-    cat("Row Column Design", "\n\n")
+    cat("Resolvable Row-Column Design (Two Stage Generation)", "\n\n")
     #---------------------------------------------------------------------
-    cat("First location efficiency of design:", "\n")
+    cat("Efficiency of design:", "\n")
     print(x$blocksModel[[1]])
     cat("\n")
     cat("Information on the design parameters:", "\n")

diff --git a/man/row_column.Rd b/man/row_column.Rd