R/growth2vgc.fnc.R

In languageR: Analyzing Linguistic Data: A Practical Introduction to Statistics

`growth2vgc.fnc` <-
function(growth) {
  requireNamespace("zipfR", quietly = TRUE)
  return(zipfR::vgc(N  = growth@data$data$Tokens, 
             V  = growth@data$data$Types, 
             Vm = list(growth@data$data$HapaxLegomena,
                        growth@data$data$DisLegomena, 
                        growth@data$data$TrisLegomena)))

}