R中神经网络的移位数据集

我得到了一个excel文件（见下文），其中包含数天内每天的汇率值，必须使用以下公式：

Y（t+1）=f（Y（t），Y（t-1），Y（t-2））

移动下面的数据，以便为神经网络再创建3个输入，这样我就有4列数据来训练和测试MLP神经网络的时间序列预测。”t'表示当前值

Exchange Values
1.0621
1.0791
1.0927
1.0906
1.0986
1.0918
1.0891
1.0817
1.0741
1.0767
1.0876
1.0876
1.1006

---

考虑

embed

函数：

Exchange_Values <- scan(text="1.0621
1.0791
1.0927
1.0906
1.0986
1.0918
1.0891
1.0817
1.0741
1.0767
1.0876
1.0876
1.1006")

---

您的问题是什么？请查看

嵌入

函数。

embed(Exchange_Values, 3)
        [,1]   [,2]   [,3]
 [1,] 1.0927 1.0791 1.0621
 [2,] 1.0906 1.0927 1.0791
 [3,] 1.0986 1.0906 1.0927
 [4,] 1.0918 1.0986 1.0906
 [5,] 1.0891 1.0918 1.0986
 [6,] 1.0817 1.0891 1.0918
 [7,] 1.0741 1.0817 1.0891
 [8,] 1.0767 1.0741 1.0817
 [9,] 1.0876 1.0767 1.0741
[10,] 1.0876 1.0876 1.0767
[11,] 1.1006 1.0876 1.0876