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