--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/classes/@stattest/attachToDom.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,45 @@
+
+function collectedHist = attachToDom(objs, dom, parent, collectedHist)
+  
+  if isempty(objs)
+    
+    % Create empty stattest node with the attribute 'shape'
+    utils.xml.attachEmptyObjectNode(objs, dom, parent);
+    
+  else
+    for oo = 1:numel(objs)
+      obj = objs(oo);
+      
+      % Create object node
+      stNode = dom.createElement('stattest');
+      stNode.setAttribute('shape', sprintf('%dx%d', size(objs)));
+      
+      % Call superclass
+      collectedHist = attachToDom@ltpda_uoh(obj, dom, stNode, collectedHist);
+      
+      % Add data
+      if ~isempty(obj.data)
+        dataNode = dom.createElement('data');
+        collectedHist = utils.xml.attachCellToDom(obj.data, dom, dataNode, collectedHist);
+        stNode.appendChild(dataNode);        
+      end
+      
+      % Add pvalue
+      if ~isempty(obj.pvalue)
+        pvalueNode = dom.createElement('pvalue');      
+        utils.xml.attachNumberToDom(obj.pvalue, dom, pvalueNode);
+        stNode.appendChild(pvalueNode);
+      end
+      
+      % Add result
+      resNode = dom.createElement('result');
+      utils.xml.attachNumberToDom(double(obj.result), dom, resNode);
+      stNode.appendChild(resNode);
+      
+      % Add to parent node
+      parent.appendChild(stNode);
+      
+    end
+  end
+  
+end