diff toolboxes/FullBNT-1.0.7/graph/family.m @ 0:e9a9cd732c1e tip

first hg version after svn

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/toolboxes/FullBNT-1.0.7/graph/family.m	Tue Feb 10 15:05:51 2015 +0000
@@ -0,0 +1,17 @@
+function f = family(A,i,t)
+% FAMILY Return the indices of parents and self in sorted order
+% f = family(dag,i,t)
+%
+% t is an optional argument: if present, dag is assumed to be a 2-slice DBN
+
+if nargin < 3 
+  f = [parents(A,i) i];
+else
+  if t == 1
+    f = [parents(A,i) i];
+  else
+    ss = length(A)/2;
+    j = i+ss;
+    f = [parents(A,j) j] + (t-2)*ss;
+  end
+end