R - 与大小不等的数据集进行移动窗口比较

Question

我需要将一大组值与一小组值进行比较，并找出两者之间的最小差异。也许这是“移动窗口”的比较？我查看了几个时间序列包，但找不到（或识别）一个比较不同大小数据集的函数。下面的文本示例。非常感谢任何帮助。

    ----------1st comparison-----------

    Time     S1     S2     Diff     Mean Diff
    1        1.3    1.2    0.1
    2        1.7    1.6    0.1      0.10
    3        1.2     
    4        1.6

    ----------2nd comparison------------

    1        1.3    
    2        1.7    1.2    0.5
    3        1.2    1.6   -0.4      0.05
    4        1.6

    ----------3rd comparison------------     

    1        1.3     
    2        1.7
    3        1.2    1.2    0.0
    4        1.6    1.6    0.0      0.00     <- minimum difference 

Answer 1

这样的事情怎么样：

require(zoo)
S1 <- c(1.3,1.7,1.2,1.6)
S2 <- c(1.2,1.6)

我们可以使用 rollapply 来应用沿向量滚动的函数。宽度设置为较小比较向量的大小。然后，我们使用匿名函数将大向量 S1 中的值作为变量 x 传递，然后我们从中减去小向量中的值并取平均值。然后我们可以使用min 来返回最小值：

> min( rollapply( S1 , width = 2 , function(x) mean(x-S2) ) )
[1] 0

如果没有数据结构，很难使其更具通用性