##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (newtree,node_id){p<-nodes(newtree,node_id)[[1]]$predictionif (length(p)==2){return(p[2])}return(p)}