R/V_lnre.R

In zipfR: Statistical Models for Word Frequency Distributions

V.lnre <- function (obj, ...)
{
  if (! inherits(obj, "lnre")) stop("argument must belong to a subclass of 'lnre'")
  spc <- obj$spc
  if (is.null(spc)) stop("LNRE model has not been estimated from observed frequency spectrum")

  V(spc)
}