R/net.simpsons.index.R

Defines functions `net.simpsons.index`

`net.simpsons.index` <-
function(x) { tot<-sum(table(as.numeric(na.omit(x %v% "infection_history"))));  sum((table(as.numeric(na.omit(x %v% "infection_history")))/tot )^2)}

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.