Nothing
# Author: Jorrel Khalil S. Aunario, jaunario@gmail.com
# Date : 30 April 2010
# Version 0.0.1
# Licence GPL v3
maxConsecutive <- function(nums){
dvec <- cumsum(c(FALSE,diff(nums)!=1))
return(max(table(dvec)))
}
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.