R/sc.dist.R

sc.dist <-
  function(net){
    codes <- net %v% "infection_history"
    codes <- codes + 1
    codes[is.na(codes)] <- max(codes[!is.na(codes)])+1
    x <- tabulate(codes )
    x <- x/sum(x)
    x
  }

Try the epineticseq package in your browser

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

epineticseq documentation built on May 2, 2019, 4:56 p.m.