R Under development (unstable) (2025-08-24 r88696 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.

> date()
[1] "Mon Aug 25 14:40:55 2025"
> library(testthat)
> ## See R20.14b
> data(armd, package = "nlmeU")
> 
> library(nlme)
> lm3.form <- formula(visual ~ visual0 + time + treat.f) 
> fm16.5 <- 
+    lme(lm3.form,             
+        random = list(subject = pdDiag(~time)),       
+        weights = varPower(form = ~time),
+        data = armd)     
> formula(fm16.5)                            # Recall formula
visual ~ visual0 + time + treat.f
> fixef(fm16.5)
  (Intercept)       visual0          time treat.fActive 
    5.4415584     0.8998272    -0.2415596    -2.6552825 
> detach(package:nlme)
> 
> library(nlmeU)

Attaching package: 'nlmeU'

The following object is masked _by_ '.GlobalEnv':

    armd

> Pwr(fm16.5)                                # Default call 
            numDF denDF     F-value          nc     Power
(Intercept)     1   632 8471.103509 8471.103509 1.0000000
visual0         1   231  558.585658  558.585658 1.0000000
time            1   632  102.115719  102.115719 1.0000000
treat.f         1   231    5.534487    5.534487 0.6490727
> res <- Pwr(fm16.5,  L = c("treat.fActive" = 1))   # The L argument
> library(testthat)
> expect_that(unlist(res["F-value"]), equals(c("F-value" = 5.534487163)))
> packageVersion("nlme")
[1] '3.1.168'
> sessionInfo()
R Under development (unstable) (2025-08-24 r88696 ucrt)
Platform: x86_64-w64-mingw32/x64
Running under: Windows Server 2022 x64 (build 20348)

Matrix products: default
  LAPACK version 3.12.1

locale:
[1] LC_COLLATE=C                 LC_CTYPE=German_Germany.utf8
[3] LC_MONETARY=C                LC_NUMERIC=C                
[5] LC_TIME=C                   

time zone: Europe/Berlin
tzcode source: internal

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] nlmeU_0.71.6   testthat_3.2.3

loaded via a namespace (and not attached):
 [1] compiler_4.6.0  magrittr_2.0.3  R6_2.6.1        rprojroot_2.1.0
 [5] cli_3.6.5       tools_4.6.0     nlme_3.1-168    desc_1.4.3     
 [9] grid_4.6.0      pkgload_1.4.0   brio_1.1.5      rlang_1.1.6    
[13] lattice_0.22-7 
> detach(package:nlmeU)
> 
> proc.time()
   user  system elapsed 
   0.82    0.17    1.00