# NOT RUN {
p.dnchiBessel <- function(df, ncp, log=FALSE, from=0, to = 2*ncp, p.log="", ...)
{
pl2curves(dnchisqBessel, dchisq, df=df, ncp=ncp, log=log,
from=from, to=to, p.log=p.log, ...)
}
## TODO the p.dnchiB() examples >>>>>> ../tests/chisq-nonc-ex.R <<<
# }
Run the code above in your browser using DataLab