Nothing
Sxy <- function(row, data, pop1, pop2, allele.column, ref.pop=NA)
{
# As described from DNA fingerprint band patterns in Lynch 1988
# Similarity is given by:
# 1,1 - 1,2 : 0.75
# 1,2 - 1,2 : 1
# 1,2 - 1,3 : 0.5
# 1,1 - 1,1 : 1
# Rest : 0
re <- .subset2(data,1)[row]
rat <- .subset2(data,2)[row]
a <- allele.column*2+1
ai <- .subset2(pop1,a)[re]
aj <- .subset2(pop1,a+1)[re]
bi <- .subset2(pop2,a)[rat]
bj <- .subset2(pop2,a+1)[rat]
aij <- c(ai,aj)
bij <- c(bi,bj)
sum(
aij%in%bij,
bij%in%aij)/4
}
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.