function net = glmunpak(net, w)%GLMUNPAK Separates weights vector into weight and bias matrices. %%	Description%	NET = GLMUNPAK(NET, W) takes a glm network data structure NET and  a%	weight vector W, and returns a network data structure identical to%	the input network, except that the first-layer weight matrix W1 and%	the first-layer bias vector B1 have been set to the corresponding%	elements of W.%%	See also%	GLM, GLMPAK, GLMFWD, GLMERR, GLMGRAD%%	Copyright (c) Christopher M Bishop, Ian T Nabney (1996, 1997)% Check arguments for consistencyerrstring = consist(net, 'glm');if ~errstring  error(errstring);endif net.nwts ~= length(w)  error('Invalid weight vector length')endnin = net.nin;nout = net.nout;net.w1 = reshape(w(1:nin*nout), nin, nout);net.b1 = reshape(w(nin*nout + 1: (nin + 1)*nout), 1, nout);