R Under development (unstable) (2023-11-11 r85510 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.

> # This tests fix for an error caused by an exact initial setting.
> #  (from William Revelle)
> 
> require("GPArotation")
Loading required package: GPArotation
> 
> f3 <- structure(c(0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0,0),
+       .Dim = c(6L, 3L), .Dimnames = list(NULL, c("PC1", "PC2", "PC3")))
> 
> f3
     PC1 PC2 PC3
[1,]   0   0   1
[2,]   0   1   0
[3,]   1   0   0
[4,]   0   0   1
[5,]   0   1   0
[6,]   1   0   0
> 
> #      PC1 PC2 PC3
> #[1,]   0   0   1
> #[2,]   0   1   0
> #[3,]   1   0   0
> #[4,]   0   0   1
> #[5,]   0   1   0
> #[6,]   1   0   0
> 
> # These previously gave object 'VgQt' not found
> GPForth(f3)
Orthogonal rotation method varimax converged.
Loadings:
     PC1 PC2 PC3
[1,]   0   0   1
[2,]   0   1   0
[3,]   1   0   0
[4,]   0   0   1
[5,]   0   1   0
[6,]   1   0   0

                 PC1   PC2   PC3
SS loadings    2.000 2.000 2.000
Proportion Var 0.333 0.333 0.333
Cumulative Var 0.333 0.667 1.000
> Varimax(f3)
Orthogonal rotation method varimax converged.
Loadings:
     PC1 PC2 PC3
[1,]   0   0   1
[2,]   0   1   0
[3,]   1   0   0
[4,]   0   0   1
[5,]   0   1   0
[6,]   1   0   0

                 PC1   PC2   PC3
SS loadings    2.000 2.000 2.000
Proportion Var 0.333 0.333 0.333
Cumulative Var 0.333 0.667 1.000
> 
> proc.time()
   user  system elapsed 
   0.07    0.09    0.17