Merge pull request #1 from ziejd2/octave_php_separate

Octave php separate

1 files changed, 19 insertions, 0 deletions

diff --git a/sourcecodes/bnt-master/netlab3.3/gppak.m b/sourcecodes/bnt-master/netlab3.3/gppak.m
new file mode 100644
index 00000000..bb1c52a8
--- /dev/null
+++ b/sourcecodes/bnt-master/netlab3.3/gppak.m
@@ -0,0 +1,19 @@
+function hp = gppak(net)
+%GPPAK	Combines GP hyperparameters into one vector.
+%
+%	Description
+%	HP = GPPAK(NET) takes a Gaussian Process data structure NET and
+%	combines the hyperparameters into a single row vector HP.
+%
+%	See also
+%	GP, GPUNPAK, GPFWD, GPERR, GPGRAD
+%
+
+%	Copyright (c) Ian T Nabney (1996-2001)
+
+% Check arguments for consistency
+errstring = consist(net, 'gp');
+if ~isempty(errstring);
+  error(errstring);
+end
+hp = [net.bias, net.noise, net.inweights, net.fpar];