R/areaFun.R

In yanxianUCSB/yxhelper: Yx's Personal R packages

#' TBD
#'
#' @param r
#' @param curve
#' @param min.x
#' @param max.x
#' @param min.y
#' @param max.y
#' @param x
#'
#' @return
#' @export
#'
#' @examples
areaFun <- function(r, curve, min.x, max.x, min.y, max.y, x = seq_along(1:max(ceiling(r)))) {
    baseline <- get.baseline(r, min.x, max.x, min.y, max.y)
    curve.y <- c()
    curve.y[which(r < min(x) | max(x) < r)] <- 0
    curve.y[which(min(x) <= r & r <= max(x))] <-
        get.curve.y(curve, x = r[which(min(x) <= r & r <= max(x))])
    return(curve.y - baseline)
}