Nothing
#' @export
adaptive.chi.square.default <-
function(x,B,S,alpha=0.05,prop=0.5,bit=FALSE){
check(test=1,x=x,B=B,alpha=alpha,prop=prop,S=S,bit=bit)
suppressWarnings({
res.tbl=adaptive.chi.square.main(x=x,B=B,S=S,alpha=alpha,prop=prop,bit=bit)
})
res.tbl$call = match.call()
class(res.tbl) = c("adaptive.chi.square","CryptRndTest")
res.tbl
}
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.