R/api_stats.R

In sits: Satellite Image Time Series Analysis for Earth Observation Data Cubes

#---- stats ----
#' @title Stats for Q02
#' @noRd
#' @param stats    Training data statistics
#' @return statistics for Q02
.stats_q02 <- function(stats) {
    stats[["q02"]]
}
#' @title Stats for Q98
#' @noRd
#' @param stats    Training data statistics
#' @return statistics for Q98
.stats_q98 <- function(stats) {
    stats[["q98"]]
}