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