Add a useful package (from Source forge) for octave

[CreaPhase.git] / octave_packages / statistics-1.1.3 / ff2n.m

diff --git a/octave_packages/statistics-1.1.3/ff2n.m b/octave_packages/statistics-1.1.3/ff2n.m
new file mode 100644 (file)
index 0000000..f152a0c
--- /dev/null
+++ b/octave_packages/statistics-1.1.3/ff2n.m
@@ -0,0 +1,13 @@
+## Author: Paul Kienzle <pkienzle@users.sf.net>
+## This program is granted to the public domain.
+
+## -*- texinfo -*-
+## @deftypefn {Function File} ff2n (@var{n})
+## Full-factor design with n binary terms.
+##
+## @seealso {fullfact}
+## @end deftypefn
+
+function A=ff2n(n)
+  A = fullfact (2 * ones (1,n)) - 1;
+endfunction