R/zeta.R

zeta <- function(v){
  # compute Reimann zeta function
  if (v[1] <= 1)
	stop("Invalid argument. Riemann Zeta function is only defined for v > 1.");
  return(.C("zetaC",v=as.double(v[1]),z=double(1), PACKAGE="degreenet")$z)
}

Try the degreenet package in your browser

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

degreenet documentation built on May 1, 2019, 8:08 p.m.