R/free.R

Defines functions free

Documented in free

free <-
function(giventree, node) {
  if (giventree[node, 4]!=0) giventree <- free(giventree, giventree[node, 4])
  if (giventree[node, 5]!=0) giventree <- free(giventree, giventree[node, 5])
  giventree[node, 4] <- 0
  giventree[node, 5] <- 0
  giventree
}

Try the TimeVTree package in your browser

Any scripts or data that you put into this service are public.

TimeVTree documentation built on May 2, 2019, 2:17 a.m.