R/ff.R

ff <-
function (n=1,k) {
  if (k>n) stop("k > n")
  if (n<0) stop("n < 0")
  nff<-1;
  for (i in 0:(k-1) ) nff<-nff*(n-i);
  return(nff);       
}

Try the kStatistics package in your browser

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

kStatistics documentation built on June 8, 2022, 5:05 p.m.