 Usage:  subcs = maketr(cs, node)  
 
 Input:

  cs                     list of vectors: data structure which represents a binary tree 
                         and is produced by cartsplit procedure, contains vectors 
                         cs.val, cs.vec, cs.mean, cs.ssr, cs.nelem. 
                         See cartsplit for the description of cs. 
                         
  node                   integer >= 1: specifies a node of the tree cs. 
                         The branch growing from this node will be pruned away. 
                         If node=1, only the root node will be returned, 
                         if node=2, the tree will be pruned below the left 
                         child of the root node, if node=3, the tree will be 
                         pruned below the left subtree of the left subtree 
                         (if it exists). See cartsplit for 
                         the explanation how the tree is represented as a vector. 
                         
 Output:

  subcs                  list of vectors: data structure which represents a binary tree 
                         and is produced by cartsplit procedure, contains vectors 
                         subcs.val, subcs.vec,subcs.mean, subcs.ssr, subcs.nelem. 
                         See cartsplit for the description of subcs. 
                         The tree subcs is the result when the leaves of cs, 
                         which are below the position specified by the argument 
                         "node", are cutted away. 
                         
--------------------------------------------------------------
(C) MD*TECH Method and Data Technologies, 17.8.2000
