# This file contains the SPLUS / R code useful with the paper:
#
# Gradient Projection Algorithms and Software for Arbitrary
# Rotation Criteria in Factor Analysis.
#
# by:
#
# Coen A. Bernaards and Robert I. Jennrich.
#
# Website: http://www.stat.ucla.edu/research
# 
# The function Random.Start will produce a random
# matrix, size k by  k, with orthogonal colums
#
Random.Start <- function(k){
 ans <- qr.Q(qr(matrix(rnorm(k*k),k)))
 ans
}