R Under development (unstable) (2025-07-16 r88418 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 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.

> # Need to formally test all this but not right now
> # 
> # ff1 <- diffs(y, condition(M,W)) ~ group(DLD, TD) + g2(n1) + g3(m1, m2, m3, m4) + g4(r1)
> # ff1 <- diffs(y, TrialType(M,W)) ~ Group(LI, TD)
> # ff1 <- y ~ Group(LI, TD) + TrialType(M)
> # 
> # fit <- readRDS("../btest/eightgrpfit.rds")
> # 
> # ff1 <- y ~ Color(red, blue)
> # l1 <- bootParser(ff1, fit)
> # tt <- bootGroupSubset(l1, fit)
> # 
> # 
> # 
> # ff2 <- y ~ Color(red, blue) + Class(car)
> # l2 <- bootParser(ff2, fit)
> # tt2 <- bootGroupSubset(l2, fit)
> # 
> # ff3 <- diffs(y, Origin(foreign, domestic)) ~ Color(red, blue) + Class(car)
> # l3 <- bootParser(ff3, fit)
> # tt3 <- bootGroupSubset(l3, fit)
> # 
> # ff4 <- y ~ Class(car, truck) + Color(red) + Origin(foreign) 
> # l4 <- bootParser(ff4, fit)
> # tt4 <- bootGroupSubset(l4, fit)
> # 
> # 
> # r1 <- bdotsBoot(ff1, fit)
> # r2 <- bdotsBoot(ff2, fit)
> # r3 <- bdotsBoot(ff3, fit)
> # r4 <- bdotsBoot(ff4, fit)
> 
> proc.time()
   user  system elapsed 
   0.12    0.01    0.14