The R Project SVN R-packages

Rev

Rev 6391 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed 

/*
 * When partition is done, each node is labeled with the complexity
 *  appropriate if it were the top of the tree.  Actually, the complexity
 *  should be min(me, any-node-above-me).  This routine fixes that.
 */
#include "rpart.h"
#include "node.h"
#include "rpartproto.h"

void
fix_cp(pNode me, double parent_cp)
{
    if (me->complexity > parent_cp)
    me->complexity = parent_cp;

    if (me->leftson) {
    fix_cp(me->leftson, me->complexity);
    fix_cp(me->rightson, me->complexity);
    }
}