Nothing
readBinGenText<-function(filename,whichGenotype,p){
nChar<-p*2
filein<-file(filename,open='rb')
seek(con=filein,where=(whichGenotype-1)*(nChar))
x<-readChar(con=filein,nchars=nChar)
close(filein)
return(x)
}
readBinGenInt<-function(filename,whichGenotype,p){
nChar<-p
filein<-file(filename,open='rb')
seek(con=filein,where=(whichGenotype-1)*(nChar))
x<-readChar(con=filein,nchars=nChar)
x<-as.integer(unlist(strsplit(x,split='')))
close(filein)
return(x)
}
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.