用R计算平均方向精度

Question

我正在R中使用具有两个变量的数据框：股票的实际时间序列值及其每日情绪得分，我想了解预测的准确性。 有没有一种方法可以计算R的平均方向精度？

Answer 1

使用基R函数来实现滞后差（ diff ），符号提取（ sign ）和mean ，您可以创建一个用户函数来对两个数据向量执行此操作：

MDirAcc <- function(Actual, Forecast, lag=1) {
    return( mean(sign(diff(Actual, lag=lag))==sign(diff(Forecast, lag=lag))) )
}

lag值使您可以对以其他间隔评估的每日数据执行此操作。