R/areaahull.R

In alphahull: Generalization of the Convex Hull of a Sample of Points in the Plane

areaahull <-
function (x, timeout = 5) 
{
    area <- withTimeout(try(areaahulleval(x), silent = TRUE), 
        timeout = timeout)
    if (!is.numeric(area)) {
        warning("Problem in area computation (Returns NA)")
        area <- NA
    }
    if (is.numeric(area) & area < 0) {
        warning("Problem in area computation (Returns NA)")
        area <- NA
    }
    return(area)
}