《🚩🇨🇳🔆🏹🌟👊🚀🦔大秦赋 - 黄埔军校赢家黄氏永春堂 - 中科红旗，高频量化对冲》

#春秋战国 #诸子百家 #秦人牧马 #世袭制道教徒赢家黄氏江夏堂 #道家中科红旗高频量化对冲 #万般皆下品唯有读书高 #大秦赋 #ChineseEmpire #公元前B4Christ只有中文BC没有外文 #世袭制道教徒赢家黄氏江夏堂拯救亚洲人歼灭所有巫裔回教徒Anti_Islamic_Virus_and_NonHalal_Only_governance #中国政府南太平洋战略 #大葱回教堂商鞅变法Anti_Islamic_Virus #Only_NonHalal_can_Survive #古老的东方有一条河它的名字叫黄河 #古老的东方有一条江它的名字叫长江 #江夏堂 #西河堂 #黄河文明 #黄埔军校 #黄种人🎶  #农民🎶
印裔尽弃（祖籍印尼的巫裔回教徒和土著、祖籍印度乌裔回教徒和兴都教徒和土著，咱们华人都是世袭制道家姓氏堂号/生辰八字的黄河文明/赢家黄氏江夏堂黄埔军校/黄种人/华夏民族/十二生肖/秦人牧马/燕从京来），瓦釜雷鸣；
莫忘初衷，方得始终。

《🚩🇨🇳🔆🏹🌟👊🚀🦔大秦赋 - 黄埔军校赢家黄氏永春堂 - 中科红旗，高频量化对冲》

「大秦赋 - 借鉴黄河文明史」
秦国三杰，拯救亚洲；
歼灭印裔，取代美国。
秦灭六洲，一统天下；
莫忘初衷，方得始终。

🚩🇨🇳🏹🌟🦔量化对冲，中科红旗；一带一路，一统天下（兵马未动，粮草先行；人民币货币经济学，东亚中国司马错得蜀既得楚；歼灭东南亚所有回教徒和峇峇娘惹并攻占东南亚，尤其是四季仔的印尼回教徒外劳房客、阿塔的孟加拉回教徒外劳房客、瓜雪回教市政局柜台巫婆回教徒奴辱依杀、瓜雪回教土地局巫贼巫婆回教徒汪阿自杀和懦蛤仕蟆和法米仨、瓜雪回教警署巫贼巫婆回教徒、大港回教警署所有巫贼巫婆回教徒、瓜雪RHU（淮西派）花园加德士油站隔壁第三巷门牌卅二号边抽鼻涕边求命边膜拜边失心疯边自残自虐自杀的土司乩童刘瑾貹、瓜雪巴西不能帮门牌T十五号吱吱吾语的失心疯猥亵淫魔土司乩童张佳坤、瓜雪回教警署巫贼回教徒黑米哈山·殡·伊不拉心和马航日语组森美兰人黑米哈山。）、大港巴列特花园第十三巷门牌廿七廿九号土司乩童胖妈和卅一号李东海和李东梅和所有回教徒（尤其是回教徒公仆）和峇峇娘惹党羽、所有印裔（祖籍印尼包括土著和回教徒、祖籍印度的兴都教徒和回教徒包括土著）。

🚩🇨🇳🏹🌟🦔诸子百家：印裔回教徒尽弃，瓦釜雷鸣。儒学、墨学、法学、道学、兵法、阴阳学、佛学、哲学、运筹学、思想录、干支算筹、中华习俗文化宗教语言复兴、学术数学科学科技大秦赋

🚩🇨🇳🏹🌟🦔《大秦赋 - 🇨🇳关雎》
🚩🇨🇳🏹🌟🦔春秋战国，诸子百家；
🚩🇨🇳🏹🌟🦔左氏春秋，鬼谷传奇。
🚩🇨🇳🏹🌟🦔商鞅变法，道法兵家；
🚩🇨🇳🏹🌟🦔四面楚歌，焚经坑番。
🚩🇨🇳🏹🌟🦔一带一路，横跨七洲；
🚩🇨🇳🏹🌟🦔史无前例，一统天下。
🚩🇨🇳🏹🌟🦔高频量化，对冲基金；
🚩🇨🇳🏹🌟🦔只争朝夕，不负韶华。
🚩🇨🇳🏹🌟🦔学海无涯，唯勤是岸；
🚩🇨🇳🏹🌟🦔莫忘初衷，方得始终。
https://gitee.com/eglianhu

Author: englianhu

binary-Q1Inter-HFT-RV3E.Rmd

@@ -583,7 +583,7 @@ if (!exists('.蜀道')) {
 }
 if (!exists('.蜀道仓库')) .蜀道仓库 <- paste0(.蜀道, '诸子百家学府/fx/USDJPY/仓库/')
 
-样本二零一八半年 <- readRDS("~/文档/猫城/binary.com-interview-question-data/诸子百家学府/fx/USDJPY/样本2018半年.rds")
+样本二零一八半年 <- readRDS(paste0(.蜀道, '诸子百家学府/fx/USDJPY/样本2018半年.rds'))
 
 ## A data.table and dplyr tour
 ## https://atrebas.github.io/post/2019-03-03-datatable-dplyr/#addupdatedelete-columns
@@ -1671,9 +1671,7 @@ source('函数/整顿数据.R')
 
 ### 初步模型比较
 
-```{r 初步模型比较, eval = FALSE}
-source('函数/总汇结论.R')
-
+```{r 初步模型比较}
 # 蜀道
 if (!exists('.蜀道')) {
   .蜀道 <- getwd() |> 
@@ -1698,21 +1696,49 @@ if (!exists('.蜀道仓库')) .蜀道仓库 <- paste0(.蜀道, '诸子百家学
 季节性自回归自动化_差分阶数0_季节性差分阶数0_msts_数据量1200_频率1 <- readRDS(paste0(.蜀道仓库, '季节性自回归自动化_差分阶数0_季节性差分阶数0_msts_数据量1200_频率1.rds'))
 
 # 组合数据
-自回归综合滑均模型系列 <- bind_cols(list(季节性自回归自动化_差分阶数0_季节性差分阶数0_ts1, 季节性自回归自动化_差分阶数0_季节性差分阶数0_xts_数据量1200_频率1, 季节性自回归自动化_差分阶数0_季节性差分阶数0_zoo1, 季节性自回归自动化_差分阶数0_季节性差分阶数0_msts_数据量1200_频率1))
+# 自回归综合滑均模型系列 <- bind_cols(list(季节性自回归自动化_差分阶数0_季节性差分阶数0_ts1, 季节性自回归自动化_差分阶数0_季节性差分阶数0_xts_数据量1200_频率1, 季节性自回归自动化_差分阶数0_季节性差分阶数0_zoo1, 季节性自回归自动化_差分阶数0_季节性差分阶数0_msts_数据量1200_频率1))
 
 # 筛选数据重命名预测价
-自回归综合滑均模型系列 <- 自回归综合滑均模型系列[, c(1:3, 6, 9, 12)]
-setnames(自回归综合滑均模型系列, old = c('年月日时分...1', '市场价...2', '预测价...3', '预测价...6', '预测价...9', '预测价...12'), new = c('年月日时分', '市场价', 'ts', 'xts', 'zoo', 'msts'))
-自回归综合滑均模型系列[, c('ts精准率', 'xts精准率', 'zoo精准率', 'msts精准率') := .(Metrics::accuracy(市场价, ts), Metrics::accuracy(市场价, xts), Metrics::accuracy(市场价, zoo), Metrics::accuracy(市场价, msts))]
-
-季节性自回归自动化ts结论 <- 总汇结论(总汇 = 季节性自回归自动化_差分阶数0_季节性差分阶数0_ts1, 文件名 = '季节性自回归自动化ts结论', 是否储存结论 = '勾')
-季节性自回归自动化xts结论 <- 总汇结论(总汇 = 季节性自回归自动化_差分阶数0_季节性差分阶数0_xts_数据量1200_频率1, 文件名 = '季节性自回归自动化xts结论', 是否储存结论 = '勾')
-季节性自回归自动化zoo结论 <- 总汇结论(总汇 = 季节性自回归自动化_差分阶数0_季节性差分阶数0_zoo1, 文件名 = '季节性自回归自动化zoo结论', 是否储存结论 = '勾')
-季节性自回归自动化msts结论 <- 总汇结论(总汇 = 季节性自回归自动化_差分阶数0_季节性差分阶数0_msts_数据量1200_频率1, 文件名 = '季节性自回归自动化msts结论', 是否储存结论 = '勾')
-
-#季节性自回归自动化ts结论 <- 总汇结论(总汇 = 自回归综合滑均模型系列, 文件名 = '季节性自回归自动化ts结论', 时间索引 = 时间索引, 是否储存结论 = '勾')
-# 季节性自回归自动化ts结论 <- readRDS(paste0(.蜀道仓库, '季节性自回归自动化ts结论.rds'))
-
+# 自回归综合滑均模型系列 <- 自回归综合滑均模型系列[, c(1:3, 6, 9, 12)]
+# setnames(自回归综合滑均模型系列, old = c('年月日时分...1', '市场价...2', '预测价...3', '预测价...6', '预测价...9', '预测价...12'), new = c('年月日时分', '市场价', 'ts', 'xts', 'zoo', 'msts'))
+# 自回归综合滑均模型系列[, c('ts精准率', 'xts精准率', 'zoo精准率', 'msts精准率') := .(Metrics::accuracy(市场价, ts), Metrics::accuracy(市场价, xts), Metrics::accuracy(市场价, zoo), Metrics::accuracy(市场价, msts))]
+
+自回归综合滑均模型系列 <- list(unique(季节性自回归自动化_差分阶数0_季节性差分阶数0_ts1[, ':='(
+    自回归模型 = 'ts', 
+    MAE = MLmetrics::MAE(y_true = 市场价, y_pred = 预测价), 
+    MAPE = MLmetrics::MAPE(y_true = 市场价, y_pred = 预测价), 
+    RMSE = MLmetrics::RMSE(y_true = 市场价, y_pred = 预测价), 
+    SMAPE = Metrics::smape(actual = 市场价, predicted = 预测价), 
+    MSE = MLmetrics::MSE(y_true = 市场价, y_pred = 预测价), 
+    年月日时分 = NULL, 市场价 = NULL, 预测价 = NULL)]), 
+  unique(季节性自回归自动化_差分阶数0_季节性差分阶数0_xts_数据量1200_频率1[, ':='(
+    自回归模型 = 'xts', 
+    MAE = MLmetrics::MAE(y_true = 市场价, y_pred = 预测价), 
+    MAPE = MLmetrics::MAPE(y_true = 市场价, y_pred = 预测价), 
+    RMSE = MLmetrics::RMSE(y_true = 市场价, y_pred = 预测价), 
+    SMAPE = Metrics::smape(actual = 市场价, predicted = 预测价), 
+    MSE = MLmetrics::MSE(y_true = 市场价, y_pred = 预测价), 
+    年月日时分 = NULL, 市场价 = NULL, 预测价 = NULL)]), 
+  unique(季节性自回归自动化_差分阶数0_季节性差分阶数0_zoo1[, ':='(
+    自回归模型 = 'zoo', 
+    MAE = MLmetrics::MAE(y_true = 市场价, y_pred = 预测价), 
+    MAPE = MLmetrics::MAPE(y_true = 市场价, y_pred = 预测价), 
+    RMSE = MLmetrics::RMSE(y_true = 市场价, y_pred = 预测价), 
+    SMAPE = Metrics::smape(actual = 市场价, predicted = 预测价), 
+    MSE = MLmetrics::MSE(y_true = 市场价, y_pred = 预测价), 
+    年月日时分 = NULL, 市场价 = NULL, 预测价 = NULL)]), 
+  unique(季节性自回归自动化_差分阶数0_季节性差分阶数0_msts_数据量1200_频率1[, ':='(
+    自回归模型 = 'msts', 
+    MAE = MLmetrics::MAE(y_true = 市场价, y_pred = 预测价), 
+    MAPE = MLmetrics::MAPE(y_true = 市场价, y_pred = 预测价), 
+    RMSE = MLmetrics::RMSE(y_true = 市场价, y_pred = 预测价), 
+    SMAPE = Metrics::smape(actual = 市场价, predicted = 预测价), 
+    MSE = MLmetrics::MSE(y_true = 市场价, y_pred = 预测价), 
+    年月日时分 = NULL, 市场价 = NULL, 预测价 = NULL)])) |> 
+  bind_rows() |> 
+  dplyr::mutate(自回归模型 = factor(自回归模型))
+
+data.frame(自回归综合滑均模型系列)
 ```
 
 ## 外部因素周期性自回归综合滑均模型（ARIMAX）

函数/总汇结论.R

@@ -1,6 +1,6 @@
 总汇结论 <- function(
     总汇 = NULL, 文件名 = '日内指数平滑数据', 数据量 = 1200, 频率 = 1, 
-    时间索引, 预测时间单位 = 1, 是否储存结论 = '叉', 列印 = '勾') {
+    时间索引, 预测时间单位 = 1, 是否储存结论 = '叉', .列印 = '勾') {
   ## 
   ############################ 海纳百川，有容乃大； ############################
   ############################ 三军未动，粮草先行。 ############################
@@ -67,7 +67,7 @@
     回测总汇 <- 总汇[序列 %chin% 迭数列表]
     平滑总汇 <- 总汇[序列 == 回测总汇[.N]$序列 + 预测时间单位]
 
-    if (列印 == '勾') {
+    if (.列印 == '勾') {
       cat('\n=== 咱们亚洲公民中华民族不可以死，多元种族的宗旨是各种族都遵守各自宗教语言习俗文化规矩，老子李耳茅山道士毛泽东逮捕美国洋番 ===\n')
       cat('回测总汇[', '数据量：', 数据量, '频率：', 频率, '-', 
           '回测总汇最终序列号：', 回测总汇[.N]$序列, ']\n')