R/nkpar.R

"nkpar" <-
function(n, k) {
# Author: Chris Andrews <candrews@buffalo.edu>
     sum((-1)^seq(0,k-1) * choose(k, seq(0,k-1)) * (k-seq(0,k-1))^n) / factorial(k)
}

Try the blockmodelingVer036 package in your browser

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

blockmodelingVer036 documentation built on July 1, 2020, 3:02 p.m.