Extract varimax rotation

Extract varimax rotation

Usage

rotation(x, ...)

Arguments

x

Object to dispatch on

...

Passed to methods

Examples

# \donttest{
set.seed(42)
theta  = rdirichlet(50, 1, k = 3)
phi    = rdirichlet(3, 0.1, k = 20)
corpus = draw_corpus(rep(50L, 50), theta, phi)
model  = tmfast(corpus, n = 3)
rotation(model, k = 3)
#>            [,1]       [,2]       [,3]
#> [1,] 0.74518686 -0.2724038  0.6086811
#> [2,] 0.07016217  0.9397238  0.3346587
#> [3,] 0.66315445  0.2066769 -0.7193823
# }