Nothing
MODE.second.freq <-
function(freq,seqlength){
second.large <- c()
for(i in 1:seqlength){
freq[which.max(freq[,i]),i] <- NA
second.large[i] <- max(freq[,i], na.rm = TRUE)
}
return(second.large)
}
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.