R/DensCircRad.R

DensCircRad<-function (x, t, bw) {
    exptx<-exp(cos(outer(t,x,"-"))*bw)
    y<-rowMeans(exptx)/(2*pi*besselI(bw,0))
    return(y)
}

Try the NPCirc package in your browser

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

NPCirc documentation built on Nov. 10, 2022, 5:48 p.m.