R/var.periodic.correlation.R

`var.periodic.correlation` <-
function(l, m, n, p)
{
	if((l %% p) == 0)
		(n - l/p)/(n * (n + 2))
	else (n - trunc((l - m + p)/p))/n^2
}

Try the pear package in your browser

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

pear documentation built on May 2, 2019, 9:16 a.m.