R/RcppExports.R

In harphub/harpSpatial: Utilities for HARP spatial verification

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

harpSpatial_basic_scores <- function(obfield, fcfield) {
    .Call('_harpSpatial_harpSpatial_basic_scores', PACKAGE = 'harpSpatial', obfield, fcfield)
}

get_hira_basic_scores <- function(obsvect, indices, fcfield, scales) {
    .Call('_harpSpatial_get_hira_basic_scores', PACKAGE = 'harpSpatial', obsvect, indices, fcfield, scales)
}

get_hira_scores <- function(obsvect, indices, fcfield, thresholds, scales, strategies) {
    .Call('_harpSpatial_get_hira_scores', PACKAGE = 'harpSpatial', obsvect, indices, fcfield, thresholds, scales, strategies)
}

#' @export
sal_identify_objects <- function(indat, threshold, maxobj) {
    .Call('_harpSpatial_sal_identify_objects', PACKAGE = 'harpSpatial', indat, threshold, maxobj)
}

cumsum2d <- function(indat) {
    .Call('_harpSpatial_cumsum2d', PACKAGE = 'harpSpatial', indat)
}

cumsum2d_bin <- function(indat, threshold) {
    .Call('_harpSpatial_cumsum2d_bin', PACKAGE = 'harpSpatial', indat, threshold)
}

window_mean_from_cumsum <- function(indat, rad) {
    .Call('_harpSpatial_window_mean_from_cumsum', PACKAGE = 'harpSpatial', indat, rad)
}

vector_to_bin <- function(indat, threshold) {
    .Call('_harpSpatial_vector_to_bin', PACKAGE = 'harpSpatial', indat, threshold)
}

window_sum_from_cumsum_for_ij <- function(indat, rad, indices) {
    .Call('_harpSpatial_window_sum_from_cumsum_for_ij', PACKAGE = 'harpSpatial', indat, rad, indices)
}

windowMean <- function(indat, radius) {
    .Call('_harpSpatial_windowMean', PACKAGE = 'harpSpatial', indat, radius)
}

fss_from_fractions <- function(m1, m2) {
    .Call('_harpSpatial_fss_from_fractions', PACKAGE = 'harpSpatial', m1, m2)
}

cpp_neighborhood_scores <- function(fcfield, obfield, thresholds, scales, comparator = "ge", includeLow = TRUE, includeHigh = TRUE, boundaryCondition = "zero_pad") {
    .Call('_harpSpatial_cpp_neighborhood_scores', PACKAGE = 'harpSpatial', fcfield, obfield, thresholds, scales, comparator, includeLow, includeHigh, boundaryCondition)
}

cpp_ens_fss <- function(geolistFcst, geofieldObs, threshold, scales, comparator = "ge", includeLow = TRUE, includeHigh = TRUE) {
    .Call('_harpSpatial_cpp_ens_fss', PACKAGE = 'harpSpatial', geolistFcst, geofieldObs, threshold, scales, comparator, includeLow, includeHigh)
}

harpSpatial_neighborhood_scores <- function(obfield, fcfield, thresholds, scales, comparator = "ge", includeLow = TRUE, includeHigh = TRUE, boundaryCondition = "zero_pad") {
    .Call('_harpSpatial_harpSpatial_neighborhood_scores', PACKAGE = 'harpSpatial', obfield, fcfield, thresholds, scales, comparator, includeLow, includeHigh, boundaryCondition)
}

harpSpatial_ens_fss <- function(geolistFcst, geofieldObs, threshold, scales, comparator = "ge", includeLow = TRUE, includeHigh = TRUE) {
    .Call('_harpSpatial_harpSpatial_ens_fss', PACKAGE = 'harpSpatial', geolistFcst, geofieldObs, threshold, scales, comparator, includeLow, includeHigh)
}