Merge pull request #1 from ziejd2/octave_php_separate

Octave php separate

1 files changed, 16 insertions, 0 deletions

diff --git a/sourcecodes/bnt-master/SLP/misc/CPT_from_bnet.m b/sourcecodes/bnt-master/SLP/misc/CPT_from_bnet.m
new file mode 100644
index 00000000..64a62516
--- /dev/null
+++ b/sourcecodes/bnt-master/SLP/misc/CPT_from_bnet.m
@@ -0,0 +1,16 @@
+function CPT = CPT_from_bnet(bnet,v)
+% Export CPT from bnet
+%   CPT = CPT_from_bnet(bnet,v)
+%
+% optional : v~=0 --> verbose mode
+
+if nargin<2, v=0; end
+N = size(bnet.dag,1);
+CPT = cell(1,N);
+for j=1:N
+  CPD=struct(bnet.CPD{j});
+  %counts{j}=CPD.counts;
+  CPT{j}=CPD.CPT;
+end
+if v, celldisp(CPT);end
+%nsamples = CPD.nsamples;