Nothing
#'Internal functions in IHA
#'
#'These are internal, undocumented (for now) functions in the IHA package
#'@rdname internal
`monotonic.segments` <-
function (x, diff = T)
{
if (!diff)
x <- diff(x)
f <- rep(1, length(x))
f[x > 0] <- 2
f[x < 0] <- 0
f.runs <- rle(f)
i <- which(f.runs$values == 1)
if (identical(i[1], as.integer(1))) {
f.runs$values[1] <- f.runs$values[2]
i <- i[-1]
}
if (length(i) > 0)
f.runs$values[i] <- f.runs$values[i - 1]
f <- inverse.rle(f.runs)
f.runs <- rle(f)
return(f.runs)
}
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.