Nothing
nondecreasing <- function(x, ...)UseMethod('nondecreasing')
nondecreasing.default <- function(x, strict=FALSE, ...){
if(strict) y <- x > prev(x)
else y <- x >= prev(x)
if(length(y)) y[[1]] <- TRUE
y
}
nonincreasing <- function(x,...)UseMethod('nonincreasing')
nonincreasing.default <- function(x, strict=FALSE, ...){
if(strict) y <- x < prev(x)
else y <- x <= prev(x)
if(length(y)) y[[1]] <- TRUE
y
}
monotonic <- function(x, ...)UseMethod('monotonic')
monotonic.default <- function(x, strict=FALSE, ...)all(
nondecreasing(x,strict=strict,...)) ||
all(nonincreasing(x,strict=strict,...)
)
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.