inst/unitTests/runit.ensemble.R

# :vim set filetype=R
test.max_eigen <- function()
{
  en <- Ensemble(50, WishartModel(50, 200))
  mx <- max_eigen(en)
  #theo <- qmp(1, svr=4, var=1)
  #cat("\ntheoretical cutoff:",theo,"\n")
  #print(mx)
  #checkEquals(rep(theo, length(mx)), mx, tolerance=0.1)
}

Try the futile.matrix package in your browser

Any scripts or data that you put into this service are public.

futile.matrix documentation built on May 29, 2017, 12:02 p.m.