Nothing
VLF.count.pos <-
function(freq, p,seqlength){
count <- mat.or.vec(nr = 1, nc = seqlength)
for(i in 1:seqlength){
count[i] = length(which(freq[,i] < p))
}
return(count)
}
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.