R Under development (unstable) (2023-09-10 r85120 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> require(FrF2)
Loading required package: FrF2
Loading required package: DoE.base
Loading required package: grid
Loading required package: conf.design

Attaching package: 'DoE.base'

The following objects are masked from 'package:stats':

    aov, lm

The following object is masked from 'package:graphics':

    plot.design

The following object is masked from 'package:base':

    lengths

> reshuffled <- FrF2(32,9, estimable=c("AC","BC","AB"))
> basic <- FrF2(32,9, estimable=c("CJ"))
> FrF2:::generators.from.design(basic)
[[1]]
x6 ~ x1 * x2 * x3
<environment: 0x000002a9c2259908>

[[2]]
x7 ~ x1 * x2 * x4
<environment: 0x000002a9c22687b0>

[[3]]
x8 ~ x1 * x2 * x5
<environment: 0x000002a9c226d748>

[[4]]
x9 ~ x1 * x3 * x4 * x5
<environment: 0x000002a9c227a5f0>

> FrF2:::generators.from.design(reshuffled)
[[1]]
x6 ~ x1 * x3 * x4 * x5
<environment: 0x000002a9c0e18c50>

[[2]]
x7 ~ x1 * x2 * x3
<environment: 0x000002a9c0e2d8c8>

[[3]]
x8 ~ x2 * x3 * x4 * x5
<environment: 0x000002a9c0e38cc0>

[[4]]
x9 ~ x1 * x2 * x4 * x5
<environment: 0x000002a9c0e445f0>

> 
> proc.time()
   user  system elapsed 
   1.92    0.12    2.03