Counting the observations through each path of a data.tree in R -


using data.tree build custom hierarchy, i'm looking count number of observations run through each node. 

library(mass) library(data.tree)  data(cars93)  cars93 <- subset(cars93, manufacturer %in% c("acura","toyota"))[, c("manufacturer","drivetrain","passengers")]  > cars93        manufacturer drivetrain passengers 1         acura      front          5 2         acura      front          5 84       toyota      front          5 85       toyota      front          4 86       toyota      front          5 87       toyota        4wd          7

the current output adding children correctly first sub node, skips "drivetrain" column "acura" level, , "toyota" level stopped adding "passengers" children after first iteration. 

  levelname       obs.ct 1 cars               6 2  ¦--acura          2 3  ¦   °--5          2 4  °--toyota         4 5      ¦--4wd        1 6      ¦   °--7      1 7      °--front      3

all of built-in counting functions appear apply node , leaf levels, not observation levels, i'm not missing there. building tree data frame 1 node @ time , counting rows solution i've come across.

i've come close updating training code https://cran.r-project.org/web/packages/data.tree/vignettes/applications.html#id3-introduction, breaks somewhere between splitting on each feature , recursively calling function each child. i've tried sapply'ing split of features @ once, results adding children wrong levels of hierarchy. closest i've been able align output.

ispure <- function(data) {     length(unique(data[, ncol(data)])) == 1 }  path_func <- function(node, data) {     node$obs.ct <- nrow(data)      if (ispure(data)) {         child <- node$addchild(unique(data[, ncol(data)]))         child$obs.ct <- nrow(data)      } else {         childobs <- split(data[ , 2:ncol(data), drop = false], data[ , 1], drop = true)          for(i in 1:length(childobs)) {             child <- node$addchild(names(childobs)[i])             path_func(child, childobs[[i]])         }     } }  tree <- node$new("cars") path_func(tree, cars93) print(tree, "obs.ct")


Comments

Post a Comment

Popular posts from this blog

javascript - Create a stacked percentage column -

i have collection of data : var data = [ {"p301a":"10","p301b":"7","p301c":"7","p301d":"3","p301e":"8","p301f":"8","p301g":"8","p301h":"8","p301i":"8","p301j":"8","p301k":"8","p301l":"8","p301m":"8","p301n":"8","p301o":"8","age":"31-40 years","profesion":"2","position":"2"}, {"p301a":"5","p301b":"4","p301c":"4","p301d":"4","p301e":"4","p301f":"4","p301g":"4","p301h":"4","p301i":"4","p301j":"4","p301k":"4...
Read more

Optimising Firebase database by automatically overwriting data -

in firebase app have following structure: posts latest all users can write posts > latest . want limit entries 20 posts save space in database. , posts beyond 20 unnecessary never shown on homepage. how can limit posts 20, when user writes posts > latest posts @ end drop off (be deleted) automatically? this sample should you. you need : const max_log_count = 20; exports.removeold = functions.database.ref('/posts/latest/{postid}').oncreate(event => { const parentref = event.data.ref.parent; return parentref.once('value').then(snapshot => { if (snapshot.numchildren() >= max_log_count) { let childcount = 0; const updates = {}; snapshot.foreach(function(child) { if (++childcount <= snapshot.numchildren() - max_log_count) { updates[child.key] = null; } }); // update parent. removes children. ...
Read more

javascript - Angular UI-Grid customTemplate directive causing rows to load slowly/? -

Image
each grid cell can have more 1 customtemplate loaded. have directive holds watcher on model_col_field listen cell updates on scroll when dom rows updated , recompile celltemplate . without watcher , $compile rows repeat on scroll, showing same set of rows. is there more angular way of approaching or way improve performance? relevant controller code: create gridoptions.data & gridoptions.columndefs : var customtemp = '<div ng-repeat="opt in grid.appscope.colvalueoptionsmodel" ng-init="tempstring=model_col_field.clazz+opt.key;"><comparison-directive dbo="model_col_field" attobj="opt" fff="grid.appscope.getattributetemplate(tempstring)" /></div>'; $scope.gridoptions.columndefs = [ { name:'yindex',pinnedleft:true,celltemplate: customtemp, displayname:'index'}, { name:'col1',celltemplate: customtemp}, { name:'col2',celltemplate: c...
Read more