From 74b673ba4a706085201a5610b938ff98f08f641d Mon Sep 17 00:00:00 2001
From: ziejd2
Date: Wed, 25 Apr 2018 16:43:19 -0500
Subject: Bug fixes, code comments, and minor changes

---
 .../code_backup/checkDiscreteNodes.m               | 37 ++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 sourcecodes/parameter_learning/code_backup/checkDiscreteNodes.m

(limited to 'sourcecodes/parameter_learning/code_backup/checkDiscreteNodes.m')

diff --git a/sourcecodes/parameter_learning/code_backup/checkDiscreteNodes.m b/sourcecodes/parameter_learning/code_backup/checkDiscreteNodes.m
new file mode 100644
index 00000000..c9d0692c
--- /dev/null
+++ b/sourcecodes/parameter_learning/code_backup/checkDiscreteNodes.m
@@ -0,0 +1,37 @@
+function [ ] = checkDiscreteNodes( bnet, cases)
+    %checkDiscreteNodes Checks if states of discrete nodes are be integers from 1 to M
+    %   where M is the number of states of the node.  (M should be the same as
+    %   node_sizes in the bnet).
+    % 
+    %Input:
+    %   bnet: BNT bnet
+    %   cases: cell array of data
+    %
+%
+node_sizes = bnet.node_sizes;
+dnodes = bnet.dnodes;
+ndisc = size(dnodes,2);
+ncases = size(cases,2);
+
+%check to see that all data for discrete nodes are integers
+for i = 1:ndisc
+    inode = dnodes(i);
+    data = cases(inode,:);
+    isize = node_sizes(inode);
+    states = zeros(1,isize);
+    for j = 1:isize
+        states(j) = j;
+    end
+    for j = 1:ncases
+        k = int64(data{j});
+        if ~any(k==states)
+            error(['Discrete nodes must be integers from 1 to the number of states']);
+        end
+    end
+end
+
+    
+end
+
+
+
-- 
cgit 1.4.1