k <- 5
tstMat <- array(runif(k), dim=c(k,k))
tstOrth <- qr.Q(qr(tstMat))
t(tstOrth)%*%tstOrth

Is this what you want?
Spencer Graves

Feng Zhang wrote:
Hey, all

Will you please tell me how to generate multiple
square orthogonal matrices for data transformation usage?

Thanks.

Fred

______________________________________________
[EMAIL PROTECTED] mailing list
http://www.stat.math.ethz.ch/mailman/listinfo/r-help

______________________________________________ [EMAIL PROTECTED] mailing list http://www.stat.math.ethz.ch/mailman/listinfo/r-help

Reply via email to