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

englianhu · englianhu · commit ef761a9ddbb5 · 2024-03-02T02:22:38.000+08:00
#春秋战国 #诸子百家 #秦人牧马 #世袭制道教徒赢家黄氏江夏堂 #道家中科红旗高频量化对冲 #万般皆下品唯有读书高 #大秦赋 #ChineseEmpire #公元前B4Christ只有中文BC没有外文 #世袭制道教徒赢家黄氏江夏堂拯救亚洲人歼灭所有巫裔回教徒Anti_Islamic_Virus_and_NonHalal_Only_governance #中国政府南太平洋战略 #大葱回教堂商鞅变法Anti_Islamic_Virus #Only_NonHalal_can_Survive #古老的东方有一条它的名字叫黄河 #古老的东方有一条江它的名字叫长江 #江夏堂 #西河堂 #黄河文明 #黄埔军校 #黄种人🎶 #农民🎶 印裔尽弃（祖籍印尼的巫裔回教徒和土著、祖籍印度乌裔回教徒和兴都教徒和土著，咱们华人都是世袭制道家姓氏堂号/生辰八字的黄河文明/赢家黄氏江夏堂黄埔军校/黄种人/华夏民族/十二生肖/秦人牧马/燕从京来），瓦釜雷鸣； 莫忘初衷，方得始终。 《🚩🇨🇳🔆🏹🌟👊🚀🦔大秦赋 - 黄埔军校赢家黄氏永春堂 - 中科红旗，高频量化对冲》 「大秦赋 - 借鉴黄河文明史」 秦国三杰，拯救亚洲； 歼灭印裔，取代美国。 秦灭六洲，一统天下； 莫忘初衷，方得始终。 🚩🇨🇳🏹🌟🦔量化对冲，中科红旗；一带一路，一统天下（兵马未动，粮草先行；人民币货币经济学，东亚中国司马错得蜀既得楚；歼灭东南亚所有回教徒和峇峇娘惹并攻占东南亚，尤其是四季仔的印尼回教徒外劳房客、阿塔的孟加拉回教徒外劳房客、瓜雪回教市政局柜台巫婆回教徒奴辱依杀、瓜雪回教土地局巫贼巫婆回教徒汪阿自杀和懦蛤仕蟆和法米仨、瓜雪回教警署巫贼巫婆回教徒、大港回教警署所有巫贼巫婆回教徒、瓜雪RHU（淮西派）花园加德士油站隔壁第三巷门牌卅二号边抽鼻涕边求命边膜拜边失心疯边自残自虐自杀的土司乩童刘瑾貹、瓜雪巴西不能帮门牌T十五号吱吱吾语的失心疯猥亵淫魔土司乩童张佳坤、瓜雪回教警署巫贼回教徒黑米哈山·殡·伊不拉心和马航日语组森美兰人黑米哈山。）、大港巴列特花园第十三巷门牌廿七廿九号土司乩童胖妈和卅一号李东海和李东梅和所有回教徒（尤其是回教徒公仆）和峇峇娘惹党羽、所有印裔（祖籍印尼包括土著和回教徒、祖籍印度的兴都教徒和回教徒包括土著）。 🚩🇨🇳🏹🌟🦔诸子百家：印裔回教徒尽弃，瓦釜雷鸣。儒学、墨学、法学、道学、兵法、阴阳学、佛学、哲学、运筹学、思想录、干支算筹、中华习俗文化宗教语言复兴、学术数学科学科技大秦赋 🚩🇨🇳🏹🌟🦔《大秦赋 - 🇨🇳关雎》 🚩🇨🇳🏹🌟🦔春秋战国，诸子百家； 🚩🇨🇳🏹🌟🦔左氏春秋，鬼谷传奇。 🚩🇨🇳🏹🌟🦔商鞅变法，道法兵家； 🚩🇨🇳🏹🌟🦔四面楚歌，焚经坑番。 🚩🇨🇳🏹🌟🦔一带一路，横跨七洲； 🚩🇨🇳🏹🌟🦔史无前例，一统天下。 🚩🇨🇳🏹🌟🦔高频量化，对冲基金； 🚩🇨🇳🏹🌟🦔只争朝夕，不负韶华。 🚩🇨🇳🏹🌟🦔学海无涯，唯勤是岸； 🚩🇨🇳🏹🌟🦔莫忘初衷，方得始终。 https://gitee.com/eglianhu
diff --git a/Compare few time series models.Rmd b/Compare few time series models.Rmd
@@ -98,12 +98,18 @@ knitr::opts_chunk$set(class.source = 'hover01', class.output = 'hover02', class.
 ## Setup
 
 ```{r warning=FALSE, message=FALSE}
-if(!suppressPackageStartupMessages(require('BBmisc'))) {
+if (!suppressPackageStartupMessages(require('BBmisc'))) {
   install.packages('BBmisc', dependencies = TRUE, INSTALL_opts = '--no-lock')
 }
 suppressPackageStartupMessages(require('BBmisc'))
 # suppressPackageStartupMessages(require('rmsfuns'))
 
+conflicted::conflicts_prefer(tidyft::slice, .quiet = TRUE)
+conflicted::conflicts_prefer(Ipaper::llply, .quiet = TRUE)
+conflicted::conflicts_prefer(data.table::first, .quiet = TRUE)
+conflicted::conflicts_prefer(data.table::last, .quiet = TRUE)
+conflicted::conflicts_prefer(dplyr::rename, .quiet = TRUE)
+
 ## load packages
 pkgs <- c('knitr', 'kableExtra', 'tint', 'dygraphs', 
           'devtools','readr', 'lubridate', 'data.table', 'reprex', 
@@ -166,30 +172,30 @@ rm(pkgs)
 
 ```{r error=TRUE}
 ## read files if not exists
-if(!exists('dsmp')) {
+if (!exists('dsmp')) {
   
-  if(str_detect(Sys.info()[1], 'Linux')) {
+  if (str_detect(Sys.info()[1], 'Linux')) {
     
     ## check if data path set
-    if(!exists('.dtr')) {
+    if (!exists('.dtr')) {
       .dtr <- '/home/englianhu/Documents/GitHub/binary.com-interview-question-data/'}
     dsmp <- readRDS(paste0(.dtr, 'data/fx/USDJPY/dsmp.rds'))
     
     ## save files if not exists
-    if(!file.exists(paste0(.dtr, 'data/fx/USDJPY/dsmp.rds'))) {
+    if (!file.exists(paste0(.dtr, 'data/fx/USDJPY/dsmp.rds'))) {
       saveRDS(dsmp, paste0(.dtr, 'data/fx/USDJPY/dsmp.rds'))}
     
   }
   
-  if(str_detect(Sys.info()[1], 'Windows')) {
+  if (str_detect(Sys.info()[1], 'Windows')) {
     
     ## check if data path set
-    if(!exists('.dtr')) {
+    if (!exists('.dtr')) {
       .dtr <- 'C:/Users/User/Documents/GitHub/binary.com-interview-question-data/'}
     dsmp <- readRDS(paste0(.dtr, 'data/fx/USDJPY/dsmp.rds'))
     
     ## save files if not exists
-    if(!file.exists(paste0(.dtr, 'data/fx/USDJPY/dsmp.rds'))) {
+    if (!file.exists(paste0(.dtr, 'data/fx/USDJPY/dsmp.rds'))) {
       saveRDS(dsmp, paste0(.dtr, 'data/fx/USDJPY/dsmp.rds'))}
     
   }
@@ -271,7 +277,7 @@ ddsmp <- na.omit(dsmp) |>
                        sq, date, close)}()
 
 ## save files if not exists
-if(!file.exists(paste0(.dtr, 'data/fx/USDJPY/ddsmp.rds'))) {
+if (!file.exists(paste0(.dtr, 'data/fx/USDJPY/ddsmp.rds'))) {
   saveRDS(ddsmp, paste0(.dtr, 'data/fx/USDJPY/ddsmp.rds'))}
 ```
 
@@ -578,4 +584,5 @@ sys
 
 ---
 
-<span style='color:RoyalBlue'>**Powered by - Copyright® Intellectual Property Rights of <img src='www/scb-logo3rs.jpg' width='24'> [Sςιβrοκεrs Trαdιηg®️](http://www.scibrokes.com)経営企業**</span>
+[<img src="诸子百家考工记/世博量化.png" height="14"/> Sςιβrοκεrs Trαdιηg®](http://www.scibrokes.com)<br>
+[**[<img src="诸子百家考工记/世博量化.png" height="14"/> 世博量化®](http://www.scibrokes.com)企业知识产权及版权所有，盗版必究。**]{style="color:RoyalBlue"}
diff --git a/Compare-few-time-series-models.Rmd b/Compare-few-time-series-models.Rmd
@@ -98,7 +98,7 @@ knitr::opts_chunk$set(class.source = 'hover01', class.output = 'hover02', class.
 ## Setup
 
 ```{r warning=FALSE, message=FALSE}
-if(!suppressPackageStartupMessages(require('BBmisc'))) {
+if (!suppressPackageStartupMessages(require('BBmisc'))) {
   install.packages('BBmisc', dependencies = TRUE, INSTALL_opts = '--no-lock')
 }
 suppressPackageStartupMessages(require('BBmisc'))
@@ -618,4 +618,5 @@ sys
 
 ---
 
-<span style='color:RoyalBlue'>**Powered by - Copyright® Intellectual Property Rights of <img src='www/scb-logo3rs.jpg' width='24'> [Sςιβrοκεrs Trαdιηg®️](http://www.scibrokes.com)経営企業**</span>
+[<img src="诸子百家考工记/世博量化.png" height="14"/> Sςιβrοκεrs Trαdιηg®](http://www.scibrokes.com)<br>
+[**[<img src="诸子百家考工记/世博量化.png" height="14"/> 世博量化®](http://www.scibrokes.com)企业知识产权及版权所有，盗版必究。**]{style="color:RoyalBlue"}
diff --git a/binary-Q1Inter-HFT-RV4.Rmd b/binary-Q1Inter-HFT-RV4.Rmd
@@ -1,7 +1,7 @@
 ---
-title: "<img src='文艺坊图库/deriv.png' height='240'>"
+title: "<img src='诸子百家考工记/deriv.png' height='240'>"
 subtitle: "[<span style='color:#DE5D83; background-color:black;'>金融衍生</span> - 筛选日内高频量化交易统计模型 <span style='color:#4E79A7'>**（第IV部）**</span>](https://github.com/englianhu/binary.com-interview-question)"
-author: "[®γσ, ξηg Lιαη Ημ（雷欧）](https://englianhu.github.io) <img src='文艺坊图库/赢家ξng黄氏江夏堂 - 量化对冲（中）.png' height='14'> <img src='文艺坊图库/ENG.png' height='14'>® <img src='文艺坊图库/大秦赋 - 北京大学.png' height='14'>" 
+author: "[®γσ, ξηg Lιαη Ημ（雷欧）](https://englianhu.github.io) <img src='诸子百家考工记/赢家ξng黄氏江夏堂 - 量化对冲（中）.png' height='14'> <img src='诸子百家考工记/ENG.png' height='14'>® <img src='诸子百家考工记/大秦赋 - 北京大学.png' height='14'>" 
 date: "`r lubridate::today('Asia/Shanghai')`"
 output:
   html_document: 
@@ -136,11 +136,11 @@ output:
 山不厌高，海不厌深；<br>
 [嬴政吐哺，天下归心。]{style="color:#6883FC"}
 
-<img src='文艺坊图库/css.jpeg' width = '400'>
+<img src='诸子百家考工记/css.jpeg' width = '400'>
 
 省吃俭用的工匠建筑工人（嬴政兼鲁班兼蒙毅）家翁嬴政ξηg Tεηg（赢家黄氏江夏堂）
 
-<img src='文艺坊图库/鞭策六四，推广量化；百家争鸣，振兴中华。.png' width = '400'>
+<img src='诸子百家考工记/鞭策六四，推广量化；百家争鸣，振兴中华。.png' width = '400'>
 
 世间再无富不过三代的败家子祖父黄实田（曾祖黄福全在清末光绪年间和两个哥哥仨飘洋过海从满洲到星洲自力更生努力奋斗开垦一百亩农地，然后和土木工程的杨清廉俩在清末鸦片战争时期是瓜雪两大不相伯仲的首富）祖母颜为，省吃俭用的外祖父书法家李福（李斯篆书）外祖母郑邓（家道中落的富家千金）。
 
@@ -494,11 +494,13 @@ conflict_prefer('permutations', 'gtools', quiet = TRUE)
 
 ## 读取数据
 
-**Part I**中使用的原始数据已加以修饰并储存，**Part II**与**（第III部）**次论文读取该数据，将网页轻巧化、省略掉修饰数据的一栏，**（第III部）**虽然出现小出错，但整体上还是可以筛选出**最优统计模型**，总结使用2018年上半年汇价数据即可，节省许多科研时间。
+**Part I**中使用的原始数据已加以修饰并储存，**Part II**与**（第III部）**次论文读取该数据，将网页轻巧化、省略掉修饰数据的一栏，**（第III部）**虽然出现小出错，但整体上还是可以筛选出**最优统计模型**，总结使用阳历二零一八年上半年汇价数据即可，节省许多科研时间。
 
-然而**总汇结论（从2016年至2018年7月7日）**和**总汇2018年上半年结论**可以证实将再循环数据量参数设置为`频率 = 1`（**0.02小时一周期（1分钟循环1200次）**）误差最小、最为精准<span style='color:white; background-color:#DE5D83;'>**最优统计模型**</span>。为了节省科研时间，它日只需要使用半年汇价数据而非三年半数据。
+以天文学公转周期与自转周期的概念，预测时间单位为一分钟而数据量为十个时辰；**总汇结论（从阳历二零一六年至二零一八年七月七日）**和**总汇阳历二零一八年上半年结论**可以证实将再循环数据量参数设置为`频率 = 1`（**以百分之一个时辰时间单位为一个周期（一分钟单位千皕观测量一个循环周期）**）误差最小、最为精准<span style='color:white; background-color:#DE5D83;'>**最优统计模型**</span>。为了节省科研时间，它日只需要使用半年汇价数据而非三年半数据。
 
-基于`1200分钟`为一个最优循环期数据量，此篇文章将样本数据过滤为`2017-12-31 16:01:00 CST（中国标准时间）`至`2018-07-01 00:00:00 CST（中国标准时间）`，这样所预测出来的汇价会从`2018-01-01 00:00:00 CST（中国标准时间）`至`2018-07-01 00:00:00 CST（中国标准时间）`七个月整的汇价数据，再来比较闭市价误差，2018年汇价数据第一周并无闭市价，估计是年假休市，再比较误差时会忽略`NA值`时间的数据。
+基于`千皕分钟`为一个最优循环期数据量，此篇文章将样本数据过滤为`2017-12-31 16:01:00 CST（中国标准时间）`至`2018-07-01 00:00:00 CST（中国标准时间）`，这样所预测出来的汇价会从`2018-01-01 00:00:00 CST（中国标准时间）`至`2018-07-01 00:00:00 CST（中国标准时间）`七个月整的汇价数据，再来比较闭市价误差，二零一八年汇价数据第一周并无闭市价，估计是年假休市，再比较误差时会忽略`NA值`时间的数据。
+
+为了方便日后节省时间，这儿再过滤汇价数据量。
 
 ```{r 绘制样本数据图表, results = 'asis'}
 ## 检验是否已设置途径。
@@ -511,7 +513,7 @@ if (!exists('.蜀道')) {
     {\(.) substring(., 2)}()
 }
 if (!exists('.蜀道仓库')) {
-  .蜀道仓库 <- paste0(.蜀道, '文艺数据库/fx/USDJPY/仓库/')
+  .蜀道仓库 <- paste0(.蜀道, '诸子百家学府/fx/USDJPY/仓库/')
 }
 
 ## 
@@ -524,17 +526,17 @@ if (!exists('.蜀道仓库')) {
 ## 1317600分钟 除以 720分钟（一小时） = 1830时数
 ## 
 if (!exists('样本') || (nrow(样本) != 1317600)) {
-  样本 <- readRDS(paste0(.蜀道, '文艺数据库/fx/USDJPY/样本2.rds'))
+  样本 <- readRDS(paste0(.蜀道, '诸子百家学府/fx/USDJPY/样本2.rds'))
 }
 样本 <- 样本[order(序列)]
-# saveRDS(样本[order(序列)], paste0(.蜀道, '文艺数据库/fx/USDJPY/样本2.rds'))
+# saveRDS(样本[order(序列)], paste0(.蜀道, '诸子百家学府/fx/USDJPY/样本2.rds'))
 
 基准 <- 样本[年份 == 2018]$日期[1] #序列 == 1122001
 序列基准1 <- 样本[日期 == 基准][1]$序列
 序列基准2 <- tail(样本[日期 <= as.Date('2018-07-01')], 1)$序列
 
 样本2018半年 <- 样本[序列 %chin% (序列基准1 - 1200):序列基准2]
-# saveRDS(样本2018半年, paste0(.蜀道, '文艺数据库/fx/USDJPY/样本2018半年.rds'))
+# saveRDS(样本2018半年, paste0(.蜀道, '诸子百家学府/fx/USDJPY/样本2018半年.rds'))
 rm(基准, 样本)
 
 #基准 <- 样本2018半年[年份 == 2018]$日期[1] #序列 == 1122001
@@ -781,7 +783,7 @@ source('函数/整顿数据.R')
 ```{r, eval = FALSE}
 source('函数/日内高频季节性自回归自动化.R')
 
-样本2018半年 <- readRDS(paste0(.蜀道, '文艺数据库/fx/USDJPY/样本2018半年.rds'))
+样本2018半年 <- readRDS(paste0(.蜀道, '诸子百家学府/fx/USDJPY/样本2018半年.rds'))
 时间索引 <- unique(样本2018半年$日期)
 
 #基准 <- 样本2018半年[年份 == 2018]$日期[1] #序列 == 1122001
@@ -1119,9 +1121,9 @@ From final stage models comparison, we know that ******* is the <span style='col
 
 **反击大象共和国**
 
-![](文艺坊图库/回教徒，可兰经；断肢法，最合法。歼灭所有印尼巫鹰和美国洋番爱国狂热份子.png)
-![](文艺坊图库/歼灭美国和巫贼巫婆回教徒.png)
-![](文艺坊图库/大秦赋 Chinese Emperor.png)
+![](诸子百家考工记/回教徒，可兰经；断肢法，最合法。歼灭所有印尼巫鹰和美国洋番爱国狂热份子.png)
+![](诸子百家考工记/歼灭美国和巫贼巫婆回教徒.png)
+![](诸子百家考工记/大秦赋 Chinese Emperor.png)
 
 > #回教徒爱国就严格遵守回教徒可兰经法家国学论集体自杀而不爱国就集体退位让贤而已 #美国耶稣洋番集体被钉在十字架被晒死
 > 回教徒可兰经法家国学论，东南亚巫贼巫婆回教徒尤其是瓜雪巴西不能帮万佛寺土司张佳坤爱国虔诚狂热份子和大象共和国举国公民MH三七零和MH十七自杀式飞往东亚
@@ -1265,5 +1267,5 @@ rm(系统信息1, 系统信息2)
 
 ---
 
-[<img src="文艺坊图库/世博量化.png" height="14"/> Sςιβrοκεrs Trαdιηg®](http://www.scibrokes.com)<br>
-[**[<img src="文艺坊图库/世博量化.png" height="14"/> 世博量化®](http://www.scibrokes.com)企业知识产权及版权所有，盗版必究。**]{style="color:RoyalBlue"}
+[<img src="诸子百家考工记/世博量化.png" height="14"/> Sςιβrοκεrs Trαdιηg®](http://www.scibrokes.com)<br>
+[**[<img src="诸子百家考工记/世博量化.png" height="14"/> 世博量化®](http://www.scibrokes.com)企业知识产权及版权所有，盗版必究。**]{style="color:RoyalBlue"}
diff --git a/binary-Q1XREG-ARFIMAX-GARCH.Rmd b/binary-Q1XREG-ARFIMAX-GARCH.Rmd
@@ -665,6 +665,7 @@ rm(sys1, sys2)
 05. [binary.com Interview Question I - Interday Betting Strategy Models Comparison (Financial Betting)](http://rpubs.com/englianhu/binary-Q1BET)
 06. [R语言中ARMA，ARIMA（BOX-JENKINS），SARIMA和ARIMAX模型用于预测时间序列数据](http://tecdat.cn/r%e8%af%ad%e8%a8%80%e4%b8%adarma%ef%bc%8carima%ef%bc%88box-jenkins%ef%bc%89%ef%bc%8csarima%e5%92%8carimax%e6%a8%a1%e5%9e%8b%e7%94%a8%e4%ba%8e%e9%a2%84%e6%b5%8b%e6%97%b6%e9%97%b4%e5%ba%8f%e5%88%97)
 
---------------------
+---
 
-**Powered by - Copyright® Intellectual Property Rights of <img src='www/oda-army2.jpg' width='24'> [Scibrokes®](http://www.scibrokes.com)個人の経営企業**
+[<img src="诸子百家考工记/世博量化.png" height="14"/> Sςιβrοκεrs Trαdιηg®](http://www.scibrokes.com)<br>
+[**[<img src="诸子百家考工记/世博量化.png" height="14"/> 世博量化®](http://www.scibrokes.com)企业知识产权及版权所有，盗版必究。**]{style="color:RoyalBlue"}
