Nothing
`recodeFirst` <-
function(mat,bases,geno=1:3){
oldgeno<-paste(rep(bases,e=2),rep(bases,2),sep="")[-3]
for(i in 1:3)
mat[mat==oldgeno[i]]<-geno[i]
mat
}
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.