[Octave-cvsupdate] octave-forge/main/statistics fullfact.m,NONE,1.1 ff2n.m,NONE,1.1

[Paul K. <pki...@us...>]

Update of /cvsroot/octave/octave-forge/main/statistics
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15545

Added Files:
	fullfact.m ff2n.m 
Log Message:
basic factorial designs


--- NEW FILE: fullfact.m ---
## fullfact([n1 n2 n3])
##    full factorial design with choices 1 through n_i for each factor i
##
## fullfact(n)
##    full factorial design with n binary choices, 0 and 1
function A = fullfact(n)
  if length(n) == 1
    % combinatorial design with n either/or choices
    A = fullfact(2*ones(1,n))-1;
  else
    % combinatorial design with n(i) choices per level
    A = [1:n(end)]';
    for i=length(n)-1:-1:1
      A = [kron([1:n(i)]',ones(rows(A),1)), repmat(A,n(i),1)];
    end
  end

--- NEW FILE: ff2n.m ---
## ff2n(n)
##   full-factor design with n binary terms.
##
## see also: fullfact
function A=ff2n(n), A=fullfact(2*ones(1,n))-1;