R/list.mean.hist.R

Defines functions list.mean.hist

list.mean.hist <-
  function(net.list){
    rapply(lapply(net.list, function(x) mean(na.omit(x %v% "infection_history"))), function(x) x)
  }

Try the epinetics package in your browser

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

epinetics documentation built on May 2, 2019, 6:25 p.m.