R/freeinv.R

`freeinv` <-
function(y,n){

c<-n+1

a<-(n/2)*(1-sign(cos(y))*(1-(sin(y)+(sin(y)-1/sin(y))/n)^2)^.5)

a
}

Try the binhf package in your browser

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

binhf documentation built on May 2, 2019, 4:07 p.m.