R/invansc.R

"invansc" <-
function(y,n){

y<-y/sqrt(4*(n+.5))
x<-(sin(y)^2)*(n+3/4)-3/8
x
}

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.