Nothing
#' @export
book.stack.default<-
function(x,B,k=2,alpha=0.05,bit=FALSE){
check(test=3,x=x,B=B,k=k,alpha=alpha,bit=bit)
suppressWarnings({
res.tbl=book.stack.main(x=x,B=B,k=k,alpha=alpha,bit=bit)
})
res.tbl$call = match.call()
class(res.tbl) = c("book.stack","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.