Skip to main content

Browse the archive

Raw File
randomSlippageTest.R 
invisible(require(SoDA, quietly = TRUE))
RNGkind("default", "Ahrens")
set.seed(211)
xx <- randomSlippage(1000, rnorm(10), rnorm(10))
table(xx[,1], xx[,2])
back to top