R/trinaryUtils.r

In cmerow/trinaryMaps: Build trinary (not binary) maps thats show upper and lowe bounds on species' ranges

#################################################################
#################################################################
#################################################################
#' Take the logarithm of the absolute value of a number with its sign
#'
#' This function takes a numerical input \code{x}, computes the logarithm of its
#' absolute value and multiplies it by the sign of \code{x}. This ensures that the
#' result has the same sign as the input \code{x}.
#'
#' @param x A numerical input.
#'
#' @return The result of taking the logarithm of the absolute value of \code{x}
#' with its sign.
#'
#' @examples
#' logmod(10)
#' logmod(-5)
#' @export
logmod=function(x){sign(x)*log(abs(x))}


# @export
# .curv1=function(y.,y..,y...){
# 	abs(y.*y..)/abs(y...)
# }

#' @export
.curv2=function(y.,y..){
	abs(y..)/( (1+(y.^2))^1.5 )
}

#' @export
.deriv <- function(x, y) diff(y) / diff(x)
#' @export
.middle_pts <- function(x) x[-1] - diff(x) / 2