Nothing
context("designUniformRandom")
test_that("check dimensionality of returned uniform designs", {
design <- designUniformRandom(x=NULL,1,2,control=list(size=10))
expect_equal(dim(design), c(10,1))
design <- designUniformRandom(matrix(1:2,2,1),1,2,control=list(size=10))
expect_equal(dim(design), c(12,1))
design <- designUniformRandom(,c(1,-1),c(2,10),control=list(size=10))
expect_equal(dim(design), c(10,2))
})
test_that("check whether uniform design is within bounds", {
design <- designUniformRandom(,1,2,control=list(size=10))
expect_true(all(design>=matrix(1,10,1) & design<=matrix(2,10,1)), c(10,1))
design <- designUniformRandom(,c(1,-1),c(2,10),control=list(size=10))
expect_true(all(design>=matrix(c(1,-1),10,2,byrow=T) & design<=matrix(c(2,10),10,2,byrow=T)), c(10,1))
})
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.