Nothing
context("Fst Hudson each SNP")
test_that("calculate Fst Hudson",{
data(example_SNP)
idx1 <- which(sample_labels == 'pop1')
idx2 <- which(sample_labels == 'pop2')
fst <- fst.hudson(simsnp$snp, idx1, idx2)
expect_equal(fst, 0.009571789)
})
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.