x is a design object

yihui · yihui · commit edc4ba81dca7 · 2025-11-11T14:05:54.000-06:00
[ci skip]
diff --git a/R/sim_gs_n.R b/R/sim_gs_n.R
@@ -511,7 +511,7 @@ create_cut <- function(...) {
   }
 }
 
-# Create cut functions from the design object
+# Create cut functions from the design object `x`, e.g., gsDesign2::gs_design_ahr()
 cut_from_design <- function(x) {
   if (is.null(x)) return()
   k <- nrow(x$analysis)

Original file line number	Diff line number	Diff line change
`@@ -511,7 +511,7 @@ create_cut <- function(...) {`
`511`	`511`	`}`
`512`	`512`	`}`
`513`	`513`
`514`		`-# Create cut functions from the design object`
	`514`	+# Create cut functions from the design object `x`, e.g., gsDesign2::gs_design_ahr()
`515`	`515`	`cut_from_design <- function(x) {`
`516`	`516`	`if (is.null(x)) return()`
`517`	`517`	`k <- nrow(x$analysis)`