Nothing
`HWChisqLowerl` <- function(r,verbose=FALSE,cex=1,curvecol="black",curtyp="solid") {
# draw lower confidence limit for ordinary chisquare test
if (r <=1) {
p <- seq(0,1,by=0.005)
q <- 1 - p
pt <- 2*(p-0.5)/sqrt(3)
fplow <- 2*p*q - 2*p*q*r
points(pt,fplow,type="l",col=curvecol,cex=cex,lty=curtyp)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.