Nothing
quickSim = function(x, N=1, map=uniformMap(10), model="haldane")
ibdsim(x, N=N, verbose=F, map=map, model=model)
test_that("100% inbred founders are accounted for", {
x = nuclearPed(1)
founderInbreeding(x, 1:2) = 1
sim = quickSim(x)
expect_true(all(sim[,"3:p"] == 1) && all(sim[,"3:m"] == 3))
})
test_that("intermediate inbred founders raise errors", {
x = nuclearPed(1)
founderInbreeding(x, 1) = 0.5
expect_error(quickSim(x), "Founder inbreeding coefficients other than 0 and 1 are not allowed")
})
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.