R/random.walk.tests.default.R

In CryptRndTest: Statistical Tests for Cryptographic Randomness

#' @export
random.walk.tests.default=function(x,B=64,Excursion=TRUE,Expansion=TRUE,Height=TRUE,alpha=0.05){
  
  check(test=5,x=x,B=B,alpha=alpha,Excursion=Excursion,Expansion=Expansion,Height=Height)
  suppressWarnings({
    res.tbl=random.walk.tests.main(x,B=64,Excursion=TRUE,Expansion=TRUE,Height=TRUE,alpha=0.05)
  })
  res.tbl$call = match.call()
  class(res.tbl) = c("random.walk.tests","CryptRndTest")
  res.tbl
}