Nothing
MtkCalc <-
function(genos,subset,power=10){
genos<-as.matrix(genos)
mode(genos)<-"numeric"
genos[genos==0]<-NA
n.genos<-ncol(genos)
mat<-Mat(genos)
mat<-(2*(mat-min(mat))/(max(mat)-min(mat)))^power
for(i in 1:n.genos){
mat[i,i]<-0
}
return(sum(mat[subset,subset])/(n.genos^2))
}
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.