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
}
nunesmatt/binhf documentation built on May 25, 2019, 8:18 a.m.