tests/Revelle.R

# This tests fix for an error caused by an exact initial setting.
#  (from William Revelle)

require("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

# These previously gave object 'VgQt' not found
GPForth(f3)
Varimax(f3)

Try the GPArotation package in your browser

Any scripts or data that you put into this service are public.

GPArotation documentation built on April 16, 2022, 5:05 p.m.