R/seqinepi.R

Defines functions seqinepi

Documented in seqinepi

seqinepi <- function(seqdata) {
  z <- suppressMessages(seqdef(seqdss(seqdata),missing="%",alphabet=alphabet(seqdata)))
  nbepi <- suppressMessages(seqistatd(z))
  colnames(nbepi) <- paste0("nepi", alphabet(seqdata))
  return(nbepi)
}

Try the seqhandbook package in your browser

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

seqhandbook documentation built on April 3, 2023, 5:45 p.m.