R yardstick smape 对称平均绝对百分比误差

计算对称平均绝对百分比误差。该指标采用相对单位。

用法

smape(data, ...)

# S3 method for data.frame
smape(data, truth, estimate, na_rm = TRUE, case_weights = NULL, ...)

smape_vec(truth, estimate, na_rm = TRUE, case_weights = NULL, ...)

参数

data: data.frame 包含由 truth 和 estimate 参数指定的列。
...: 目前未使用。
truth: 真实结果的列标识符(即 numeric )。这应该是一个不带引号的列名，尽管此参数是通过表达式传递的并且支持quasiquotation(您可以不带引号的列名)。对于 _vec() 函数，一个 numeric 向量。
estimate: 预测结果的列标识符(也是 numeric )。与 truth 一样，可以通过不同的方式指定，但主要方法是使用不带引号的变量名称。对于 _vec() 函数，一个 numeric 向量。
na_rm: logical 值，指示在计算继续之前是否应剥离 NA 值。
case_weights: 案例权重的可选列标识符。这应该是一个不带引号的列名称，其计算结果为 data 中的数字列。对于 _vec() 函数，一个数值向量。

值

tibble 包含列 .metric 、 .estimator 和 .estimate 以及 1 行值。

对于分组 DataFrame ，返回的行数将与组数相同。

对于 smape_vec() ，单个 numeric 值(或 NA )。

细节

smape() 的此实现是 "usual definition"，其中分母除以 2。

也可以看看

其他数字指标：ccc() , huber_loss_pseudo() , huber_loss() , iic() , mae() , mape() , mase() , mpe() , msd() , poisson_log_loss() , rmse() , rpd() , rpiq() , rsq_trad() , rsq()

其他准确度指标：ccc() , huber_loss_pseudo() , huber_loss() , iic() , mae() , mape() , mase() , mpe() , msd() , poisson_log_loss() , rmse()

作者

马克斯·库恩、里亚兹·赫达亚蒂

例子

# Supply truth and predictions as bare column names
smape(solubility_test, solubility, prediction)
#> # A tibble: 1 × 3
#>   .metric .estimator .estimate
#>   <chr>   <chr>          <dbl>
#> 1 smape   standard        36.7

library(dplyr)

set.seed(1234)
size <- 100
times <- 10

# create 10 resamples
solubility_resampled <- bind_rows(
  replicate(
    n = times,
    expr = sample_n(solubility_test, size, replace = TRUE),
    simplify = FALSE
  ),
  .id = "resample"
)

# Compute the metric by group
metric_results <- solubility_resampled %>%
  group_by(resample) %>%
  smape(solubility, prediction)

metric_results
#> # A tibble: 10 × 4
#>    resample .metric .estimator .estimate
#>    <chr>    <chr>   <chr>          <dbl>
#>  1 1        smape   standard        33.5
#>  2 10       smape   standard        28.9
#>  3 2        smape   standard        41.6
#>  4 3        smape   standard        28.4
#>  5 4        smape   standard        37.0
#>  6 5        smape   standard        31.8
#>  7 6        smape   standard        48.3
#>  8 7        smape   standard        27.8
#>  9 8        smape   standard        35.6
#> 10 9        smape   standard        30.2

# Resampled mean estimate
metric_results %>%
  summarise(avg_estimate = mean(.estimate))
#> # A tibble: 1 × 1
#>   avg_estimate
#>          <dbl>
#> 1         34.3

源代码：R/num-smape.R

相关用法

注：本文由纯净天空筛选整理自Max Kuhn等大神的英文原创作品 Symmetric mean absolute percentage error。非经特殊声明，原始代码版权归原作者所有，本译文未经允许或授权，请勿转载或复制。