Nothing
#' returns true if given column c matches exactly previous column of same type (this is always column c-2)
#'
#' @param redData Data to consider
#' @param column Column to consider
doubleBottom <- function(redData,column) {
# if (column-2>=1) # old version
if (column>=3) # new, optimized version
return (minBox(redData,column)==minBox(redData,column-2))
else
return (FALSE)
}
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.