[R] rotate.princomp

[Prof Brian D Ripley]

On Tue, 27 Mar 2001, Christian Hoffmann wrote:

> Hi all,
>
> I am experimenting with transporting S+ (3.4) routines to R, and for mva I
> am missing the  rotate.princomp(). It could be implemented "as is" in R, IF
> the C-subroutines ".C("S_crawFerg",..." and ".C("S_orthomax",..." were
> available.

Have you considered the legalities of this?  That code was AFAIK written by
and is copyright Insightful Inc, and I doubt if your licence agreement
allows you to do it. If it did, R might be a rather different project.

> .C("S_crawFerg",
> 		as.integer(n),
> 		as.integer(k),
> 		rmat = amat,
> 		correlation = correlation,
> 		tmat = tmat,
> 		as.double(kappa),
> 		as.double(eps),
> 		normalize = as.integer(normalize),
> 		iterations = as.integer(iter.max))[c("rmat", "correlation",
> 		"tmat", "iterations")]
> .C("S_orthomax",
> 		as.integer(dA[1]),
> 		as.integer(dA[2]),
> 		rmat = amat,
> 		gamma = as.double(gamma),
> 		as.double(eps),
> 		normalize = as.integer(normalize),
> 		iterations = as.integer(iter.max))[c("rmat", "gamma",
> 		"normalize", "iterations")]
>
> Are these functions (as code in C) available? Has anybody compiled,
> installed and used these functions in R?

See above.  I have looked at providing such functions for R, for factanal,
but took a completely separate approach for what I did implement.

-- 
Brian D. Ripley,                  ripley at stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272860 (secr)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._