r - 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
推荐阅读
- python - 将单个值从一列复制到满足条件的另一列
- php - 我正在寻找广告代码,在第二次访问时运行
- javascript - 使用 jQuery.validate 禁用表单字段时的 ASP.NET Core 视图模型
- python-3.x - 如何遍历 DataFrame 中的行,计算一个值并使用此 lambda 函数将该值放入一个新列中
- node.js - 使用 loadLayersModel 在 Tensorflow.js 中加载 Keras 模型时“仅支持绝对 URL”
- php - 闪烁消息不起作用,但错误起作用
- azure-devops - Linux VM 上的 Azure DevOps Pipeline PostSharp 失败
- google-drive-api - 如何获得与谷歌驱动器 UI 中可用的相同文件夹结构列表
- html - 为什么边框上这个`
- `标签消失?
- c# - C# 使用 SimpleJSON 写入 json 文件