`forecast::Arima(xreg = XXXX)`咱们周易（洲学论拯救亚洲人）道家易经、天文历法、廿四节气、十二时辰、算卜与气象学，<s>「兵法廿四篇」之孔明借东风与草船借箭出现错误信息</s>司马错得蜀既得楚

[englianhu]

秦谏启奏

有事启奏，无事退朝

大纲

• fabletools::accuracy()在咱们R鄀文艺坊和咱们道家终端杏林「牡蛎」有落差。
• forecast::Arima(xreg = XXXX)咱们道家易经、天文历法、廿四节气、十二时辰、算卜与气象学，「兵法廿四篇」之孔明借东风与草船借箭出现错误信息。

与预期出入/代码有误

问题一：fabletools::accuracy()在咱们R鄀文艺坊和咱们道家终端杏林「牡蛎」有落差如下：

> 外因周期自回归系列 <- bind_rows(list(
+   外因周期自回归甲 = as_tibble(accuracy(外因周期自回归甲)), 
+   外因周期自回归乙 = as_tibble(accuracy(外因周期自回归乙)), 
+   外因周期自回归丙 = as_tibble(accuracy(外因周期自回归丙)),
+   外因周期自回归丁 = as_tibble(accuracy(外因周期自回归丁)), 
+   外因周期自回归戊 = as_tibble(accuracy(外因周期自回归戊)), 
+   外因周期自回归己 = as_tibble(accuracy(外因周期自回归己)),
+   外因周期自回归庾 = as_tibble(accuracy(外因周期自回归庾))), .id = '计数模型')
Error in accuracy(外因周期自回归甲) : 缺少参数"predicted",也没有缺省值
> 外因周期自回归系列
错误: 找不到对象'外因周期自回归系列'

问题二：咱们道家易经、天文历法、廿四节气、十二时辰、算卜与气象学，「兵法廿四篇」之孔明借东风与草船借箭出现错误信息如下：

> 自回归均移模型最优值(tk_xts(总汇[, .(年月日时分, 预测价)]), 外因 = as.matrix(总汇[, .(廿四节气乙, 时辰乙)]))
Using column `年月日时分` for date_var.
Error in auto.arima(样本, D = 季节差分的次数, seasonal = 季节性,  : 
  No suitable ARIMA model found
此外: Warning message:
Non-numeric columns being dropped: 年月日时分

binary.com-interview-question/函数/自回归均移模型最优值.R

Lines 1 to 24 in d66db61

	自回归均移模型最优值 <- function(样本, 季节差分的次数 = NULL, 季节性 = '勾', 规律极限值 = 10, 自回归均移模型值 = FALSE, 外因 = NULL) {
	# 通过设置并迭代筹算自回归均移模型中不同`p,d,q`的规律值，来比较并筛选出最低或最大负数的赤池信息量准则，也就是最优统计模型。
	#
	# 《预测：方法与实践（第三版）》第九章第九节 - 季节性ARIMA模型
	# https://otexts.com/fpp3cn/seasonal-arima-cn.html
	if (!季节性 %in% c('勾', '有', '叉', '冇')) stop('请选择季节性："勾"或"有"或"是"，或者"叉"或"冇"或"否"。')
	if (季节性 %in% c('勾', '有')) 季节性 <- TRUE
	if (季节性 %in% c('叉', '冇')) 季节性 <- FALSE
	# 季节差分的次数，一般上使用到的数值是零到二。
	半成品 <- auto.arima(样本, D = 季节差分的次数, seasonal = 季节性,
	max.order = 规律极限值, xreg = 外因)
	if (自回归均移模型值 == FALSE) {
	成果 <- arimaorder(半成品)
	} else {
	#https://stats.stackexchange.com/questions/178577/how-to-read-p-d-and-q-of-auto-arima
	成果 <- 半成品$arma
	#https://stackoverflow.com/questions/23617662/extract-arima-specificaiton
	names(成果) <- c('p', 'q', 'P', 'Q', 's', 'd', 'D')
	成果 %<>% .[c(1, 6, 2, 3, 7, 4, 5)]
	#(p,d,q) and (P,D,Q) and seasonal period
	} #范例：`s` seasonal period = 12 表示十二个月
	return(成果)

操作系统信息

$ $ neofetch
        #####           englianhu@Scibrokes 
       #######          ------------------- 
       ##O#O##          OS: RedFlag Desktop 11.0 x86_64 
       #######          Host: 23-p080d 
     ###########        Kernel: 5.10.0-1-amd64 
    #############       Uptime: 2 days, 6 hours, 1 min 
   ###############      Packages: 7971 (dpkg) 
   ################     Shell: bash 5.0.3 
  #################     Resolution: 1920x1080 
#####################   DE: KDE 
#####################   WM: KWin 
  #################     Theme: RedFlag Dark [KDE], Breeze [GTK3] 
                        Icons: RedFlag-Themes-Chinrse-Red [KDE], oxygen [GTK3] 
                        Terminal: konsole 
                        CPU: Intel i5-4590T (4) @ 3.000GHz 
                        GPU: NVIDIA GeForce 710M 
                        GPU: Intel HD Graphics 
                        Memory: 14498MiB / 15901MiB 

#R>  devtools::session_info()$platform
 setting  value
 version  R version 4.3.3 (2024-02-29)
 os       RedFlag Desktop 11.0
 system   x86_64, linux-gnu
 ui       X11
 language zh_CN:en
 collate  zh_CN.UTF-8
 ctype    zh_CN.UTF-8
 tz       Asia/Shanghai
 date     2024-03-29
 pandoc   NA (via rmarkdown)
#R> Sys.info()
 sysname 
 "Linux" 
 release 
 "5.10.0-1-amd64" 
 version 
"#1 SMP Debian 5.10.40-1~rf11u1.2 (2022-09-22)" 
 nodename 
 "Scibrokes" 
 machine 
 "x86_64" 
 login 
 "englianhu" 
 user 
 "englianhu" 
 effective_user 
 "englianhu" 

原本预期结果

> 外因周期自回归系列 <- bind_rows(list(
+     外因周期自回归甲 = as_tibble(accuracy(外因周期自回归甲)), 
+     外因周期自回归乙 = as_tibble(accuracy(外因周期自回归乙)), 
+     外因周期自回归丙 = as_tibble(accuracy(外因周期自回归丙)),
+     外因周期自回归丁 = as_tibble(accuracy(外因周期自回归丁)), 
+     外因周期自回归戊 = as_tibble(accuracy(外因周期自回归戊)), 
+     外因周期自回归己 = as_tibble(accuracy(外因周期自回归己)),
+     外因周期自回归庾 = as_tibble(accuracy(外因周期自回归庾))), .id = '计数模型')
> 外因周期自回归系列
# A tibble: 7 × 8
  计数模型                ME  RMSE   MAE      MPE  MAPE    MASE  ACF1
  <chr>                <dbl> <dbl> <dbl>    <dbl> <dbl>   <dbl> <dbl>
1 外因周期自回归甲  2.44e-14 1.96  1.66  -0.0323  1.53  0.0152   1.00
2 外因周期自回归乙 -4.94e-14 0.801 0.651 -0.00539 0.600 0.00599  1.00
3 外因周期自回归丙 -6.89e-14 1.96  1.66  -0.0323  1.53  0.0152   1.00
4 外因周期自回归丁 -5.33e-14 0.801 0.651 -0.00539 0.600 0.00599  1.00
5 外因周期自回归戊  3.18e-13 1.96  1.66  -0.0323  1.53  0.0152   1.00
6 外因周期自回归己 -2.45e-14 0.799 0.651 -0.00537 0.600 0.00598  1.00
7 外因周期自回归庾  3.66e-14 0.799 0.651 -0.00537 0.600 0.00598  1.00

提案

文献与案例

• auto.arima can't find a suitable model robjhyndman/forecast#102
• No suitable ARIMA model found
• No suitable ARIMA model found error
• Unable to get suitable forecast for ARIMA model in R due to outliers-- attached code for easy replication
• Why I cannot find suitable ARIMA model for the dataset?
• No suitable ARIMA models found
• https://groups.google.com/g/r-help-archive/c/fDDyZxvTIiA/m/76BaDxXGBgAJ?pli=1
• https://stat.ethz.ch/pipermail/r-help/2017-January/444499.html
• https://robjhyndman.com/hyndsight/badarima/index.html
• auto.arima "no suitable ARIMA model found" for measuring dependency between debt and GDP

众卿商议

结论

众方案

• 方案一
• 方案二
• 方案三

最优方案

相关奏折

• 奏折一：中國北京大學贏家ξng黃氏江夏堂「大秦賦•道家李耳老子兼法家李斯篆紀•藝文志」：目前使用🚩🇨🇳🏹🦔中國國產中科紅旗禮逆襲，將目前所有編程語言統一編譯為咱們祖籍中國的黃河文明黃種人母語文言計數編程、篆體、楷體加拼音。 zhongkehongqi#6
• 奏折二： 在ts、xts、matrix、zoo格式上使用auto.arima #8
• 奏折三：中国北京大学赢家ξng黄氏江夏堂「大秦赋」：目前使用🚩🇨🇳🏹中国国产红旗礼逆袭，并且将REmap鄀编程语言程序包中文化，以下鄀编程语言函数也开始中文化，日后编程都会使用中文编程。 #7
• 奏折四：Error: forecast::Arima() #910 #6
• 奏折五：「🚩🇨🇳🏹🦔中科紅旗」🎋🎋🎍🐼🎍🎋🎋附有公元前秦人拼音的紅旗輸入法 zhongkehongqi#8
• 奏折六：🚩🔆🏹🌟👊🚀🦔大秦賦：「世襲制道家自然對數進制大秦賦算籌」文言計數編程與杏林業，取代所有西方，包括阿拉伯數字和回教徒語言（包括巫術、貨幣、習俗文化、可蘭經回教刑事法典斷肢法）、基督耶穌（包括耶穌紀年法、貨幣、習俗文化、耶穌受難日、頭戴白假髮冒充老嬤嬤西方司法與數學公式上的洋文） zhongkehongqi#12 (comment)

[englianhu]

拉曼学院电脑科学系与日语班

• 时光机器二零零二年《努力活着🎶》电脑科学系流派A（专攻数学系）、课外家庭日语班杏林林氏西河堂艳迎和燕芳：考试啦！金融交易机械化专项课程：时光机器 农历二零零二年（中译）
• 阿里之旅二零一九年《爱拼才会赢🎶》眼镜、初一、明天（钟余庆）、小宋（宋祖）、雷着（王雷）、大龙、痘痘妞儿（黄奕）... ：「猫城」黄联富（®γσ ξηg 雷欧） / 乐发集团（阿里报告）

错误信息

倘若一启动移动终端操作系统（Posit）或鄀文艺坊（RStudio）就出现以下错误信息：

Error in load(file = path, envir = e) : `...` must be empty.
ℹ Did you forget to name an argument?

或

Error:
! [conflicted] load found in 2 packages.
Either pick the one you want with `::`:
• rprofile::load
• base::load
Or declare a preference with `conflicts_prefer()`:
• conflicts_prefer(rprofile::load)
• conflicts_prefer(base::load)
Run `rlang::last_trace()` to see where the error occurred.
R symbol not found

优质解答

「门面功夫与学富五车论」

• 「元宇宙」古代人慧眼识英雄，现代人会演是英雄。
• base鄀计数/机数编程语言软件内嵌基本程序包或安装外来且花俏的rprofile代码彩色化程序包（点缀天下）出现纠纷时，就得在/home/englianhu/.Rprofile中添加多一行conflicted::conflicts_prefer(base::load, .quiet = TRUE)，就是先修身齐家平天下，基本功都不会何来学习上层武功。
• 如果不同的R鄀程序包中有一模一样的函数名（借鉴生辰八字中包含：姓名、农历出生年月日时辰），会导致出现纠纷（鄀语言可能是人为疏忽、黑客恶意入侵、重叠或误判，或基于万物皆有灵而导致代码失灵）却没有设置优先权就储存在.RData项目工作坊的话，每当打开项目就会自动显示错误信息，则需要清除所有储存在环境中的所有现身与隐身变量再重新储存项目工作坊的环境rm(list = ls()); save.image("~/文档/猫城/binary.com-interview-question/.RData")。

#source("renv/activate.R")
##						Emacs编译器通过 -*- R -*-确保将达比安/德比安上的R语言软件
## 中的 Rprofile.site 文件清空。
##
## 智慧产权与版权 © 2008年 - 2018年 迪克·埃德尔布鲁特 Dirk Eddelbuettel 和 GPL'ed
##
## 查阅 help(Startup) 汇总上奏至 ~/.Rprofile 与 Rprofile.site

# ## 范例 .Rprofile
# options(width=65, digits=5)
# options(show.signif.stars=FALSE)
# setHook(packageEvent('grDevices', 'onLoad'),
#         function(...) grDevices::ps.options(horizontal=FALSE))
# set.seed(1234)
# .First <- function() cat("\n   Welcome to R!\n\n")
# .Last <- function()  cat("\n   Goodbye!\n\n")

## ======================== 微观编译器 =================================
## Micro（微观编译器） - 新式终端编译器
## https://www.tecmint.com/micro-linuxtext-editor-with-syntax-highlighting/

## ======================= 蜀道设置 ====================================
#system('sudo chmod +rwx /usr/lib/R')

.pth <- .libPaths(c('/usr/lib/R/library')) #, '/cloud/lib/R/library', '/cloud/lib/R/site-library'))
.libPaths(.pth)

## https://support.rstudio.com/hc/en-us/articles/200532197
## https://community.rstudio.com/t/r-does-not-display-korean-chinese/30889/3?u=englianhu
#Sys.setlocale("LC_CTYPE", "en_US.UTF-8")
#Sys.setlocale("LC_CTYPE", "zh_CN.UTF-8")
#Sys.setlocale(category = "LC_CTYPE", "Chinese (Simplified)_China.936")
#Sys.setlocale(locale = "Chinese")
#Sys.setlocale(locale = "Japanese")
#Sys.setlocale(locale = "English")

# rmarkdown::render('/home/englianhu/Documents/owner/ryo-cn.Rmd',  encoding = 'UTF-8')
#Sys.setlocale("LC_CTYPE", "UTF-8")
#Sys.setlocale(locale = "UTF-8")
#Sys.setlocale(category = "LC_ALL", locale = "UTF-8")
#Sys.setlocale(category = "LC_ALL", locale = "Chinese")
#Sys.setlocale(category = "LC_ALL", locale = "zh_CN.UTF-8")
#Sys.setlocale(category = "LC_ALL", locale = "zh_TW.UTF-8")
#Sys.setlocale(category = "LC_ALL", locale = "jp_JP.UTF-8")
options(encoding='UTF-8')

#dir(paste0(R.home(component = 'home'), '/etc'))
## https://www.jumpingrivers.com/blog/customising-your-rprofile/

## -------------------- 派森设置 ----------------------------------
## https://stackoverflow.com/a/13736073/3806250
# candidates <- c(Sys.getenv('R_PROFILE'),
# file.path(Sys.getenv('R_HOME'), 'etc', 'Rprofile.site'),
# Sys.getenv('R_PROFILE_USER'),
#file.path(getwd(), '.Rprofile') )
# 
# Filter(file.exists, candidates)

## https://github.com/rstudio/reticulate/issues/496#issuecomment-601446838
#Sys.setenv(RETICULATE_PYTHON = '/usr/bin/python3')
#Sys.setenv(RETICULATE_PYTHON = '/home/englianhu/anaconda3/bin/python')
## https://d.cosx.org/d/422269-r-410/11
Sys.setenv(RETICULATE_PYTHON = '/home/englianhu/anaconda3/bin/python3', 
           '_R_USE_PIPEBIND_' = 'true')
#Sys.setenv(RETICULATE_PYTHON = '/home/englianhu/anaconda3/envs/py38/bin/python')

## ------------------------ 镜像设置 ------------------------------
## 咱们设置云端镜像，以贴近众用户。
local({
  #r <- getOption('repos')
  #r['CRAN'] <- 'https://cloud.r-project.org'
  #options(repos = r)
  
  ## https://radiant-rstats.github.io/docs/install.html
  options(repos = c(CRAN = 'https://cloud.r-project.org', 
                    RSM = 'https://radiant-rstats.github.io/minicran', 
                    Omega = 'http://www.omegahat.net/R', 
                    CINC = 'https://cinc.rud.is', 
                    RForge = 'https://www.rforge.net', 
                    RSpatial = 'https://rspatial.r-universe.dev', 
                    Stan = 'https://mc-stan.org/r-packages', 
                    MSFT = 'http://cran.microsoft.com', 
                    ROpenSci = 'https://ropensci.r-universe.dev'))
  ## https://www.cynkra.com/opensource
  # Cynkra = 'https://github.com/cynkra'
  #install.packages('remotes')
  #remotes::install_github('radiant-rstats/radiant.update', upgrade = 'never')
  #radiant.update::radiant.update()
  #install.packages('cmdstanr', repos = c('https://mc-stan.org/r-packages', getOption('repos')))
})

## ==================== 读取R程序包 ===============================
## https://github.com/JanMarvin/nlsur
## https://zhuanlan.zhihu.com/p/25868387
## https://www.cnblogs.com/simplelovecs/p/5145305.html
## https://blog.csdn.net/sinat_26917383/article/details/52737901
## https://blog.csdn.net/Allen_jinjie/article/details/71603309
## https://github.com/hyenaproject/drat
## drat::addRepo("hyenaproject")
## install.packages("XXX") ## replace XXX by the name of the package!
# drat::addRepo("JanMarvin")
# install.packages("nlsur")

## R包安装失败解决方案
## https://www.jianshu.com/p/381340383c12
## options(repos='http://cran.rstudio.com/')
options(repos='https://cran.rstudio.com/')

suppressPackageStartupMessages(require('utils'))

if(!suppressPackageStartupMessages(require('BBmisc'))) {
  install.packages('BBmisc', dependencies = TRUE, 
                   lib = .pth[1], INSTALL_opts = '--no-lock')
}; suppressPackageStartupMessages(require('BBmisc'))

if(!suppressPackageStartupMessages(require('rmsfuns'))) {
  install.packages('rmsfuns', dependencies = TRUE, 
                   lib = .pth[1], INSTALL_opts = '--no-lock')
}; suppressPackageStartupMessages(require('rmsfuns'))

if(!suppressPackageStartupMessages(require('drat'))) {
  install.packages('drat', dependencies = TRUE, 
                   lib = .pth[1], INSTALL_opts = '--no-lock')
}; suppressPackageStartupMessages(require('drat'))

if(!suppressPackageStartupMessages(require('devtools'))) {
  install.packages('devtools', dependencies = TRUE, 
                   lib = .pth[1], INSTALL_opts = '--no-lock')
  devtools::install_github('r-lib/devtools')
}; suppressPackageStartupMessages(require('devtools'))
conflicted::conflict_prefer('check', 'devtools', quiet = TRUE)

if(!suppressPackageStartupMessages(require('Ipaper'))) {
  devtools::install_github('kongdd/Ipaper')
  #devtools::install_git('https://gitee.com/adv-r/Ipaper')
  # or from gz file
  # install.packages('../Ipaper_0.1.5.9000.tar.gz', repos = NULL, type = 'source', dependencies = TRUE)
  # $sudo apt install -y libfftw3-dev
}; suppressPackageStartupMessages(require('Ipaper'))
conflicted::conflict_prefer('ldply', 'plyr', quiet = TRUE)
conflicted::conflicts_prefer(Ipaper::is_empty, .quiet = TRUE)

if(!suppressPackageStartupMessages(require('miniCRAN'))) {
  ## https://andrie.github.io/miniCRAN/articles/miniCRAN-introduction.html
  devtools::install_github('andrie/miniCRAN')
}; suppressPackageStartupMessages(require('miniCRAN'))

if(!suppressPackageStartupMessages(require('rhub'))) {
  ## https://github.com/r-hub/rhub
  remotes::install_github('r-hub/rhub')
}; suppressPackageStartupMessages(require('rhub'))

if(!suppressPackageStartupMessages(require('startup'))) {
  ## https://github.com/HenrikBengtsson/startup
  remotes::install_github('HenrikBengtsson/startup', ref = 'develop')
}; suppressPackageStartupMessages(require('startup'))

if(!suppressPackageStartupMessages(require('Rdym'))) {
  devtools::install_github('wrathematics/Rdym')
}; suppressPackageStartupMessages(require('Rdym'))

## https://www.jumpingrivers.com/blog/customising-your-rprofile/
if(!suppressPackageStartupMessages(require('rprofile'))) {
  remotes::install_github('csgillespie/rprofile')
}; suppressPackageStartupMessages(require('rprofile'))

if(!suppressPackageStartupMessages(require('prompt'))) {
  # Used for nice prompts
  remotes::install_github('gaborcsardi/prompt')
}; suppressPackageStartupMessages(require('prompt'))

if(!suppressPackageStartupMessages(require('colorout'))) {
  # Used for nice colours in the terminal; not for Windows
  remotes::install_github('jalvesaq/colorout')
}; suppressPackageStartupMessages(require('colorout'))

if(!suppressPackageStartupMessages(require('tidyverse'))) {
  devtools::install_github('tidyverse/tidyverse')
}; suppressPackageStartupMessages(require('tidyverse'))

if(!suppressPackageStartupMessages(require('lubridate'))) {
  devtools::install_github('tidyverse/lubridate')
}; suppressPackageStartupMessages(require('lubridate'))

if(!suppressPackageStartupMessages(require('prettycode'))) {
  devtools::install_github('https://github.com/r-lib/prettycode')
}; suppressPackageStartupMessages(require('prettycode'))

if(!suppressPackageStartupMessages(require('openxlsx2'))) {
  remotes::install_github('JanMarvin/openxlsx2')
}; suppressPackageStartupMessages(require('openxlsx2'))

## https://github.com/r-lib/crayon
## https://github.com/r-lib/progress
## https://github.com/r-hub/rhub
#library(prettycode, exclude = c('!', 'print'))

suppressPackageStartupMessages(require('dplyr'))
conflicted::conflicts_prefer(dplyr::filter, .quiet = TRUE)
conflicted::conflicts_prefer(dplyr::select, .quiet = TRUE)
conflicted::conflicts_prefer(base::print, .quiet = TRUE)
conflicted::conflicts_prefer(base::load, .quiet = TRUE)

pkgs <- c('MASS', 'conflicted', 'prettycode', 'crayon', 'progress', 'rhub', 'plyr', 'purrr', 'readr', 'tidyr', 'pryr', 'broom', 'formattable', 'git2r', 'knitr', 'kableExtra', 'data.table', 'tibble', 'tibbletime', 'magrittr', 'forecast', 'fable', 'fabletools', 'usethis', 'tidytuesdayR')
suppressPackageStartupMessages(load_pkg(pkgs))
rm(pkgs)

## https://stackoverflow.com/a/17486231/3806250
#.First()
.First <- function() {
  Rdym::RdymEnable()
  #suppressPackageStartupMessages(startup::install(path = '/home/englianhu'))
  #suppressPackageStartupMessages(startup::startup(all = TRUE))
}

## =================== 有一个梦，由我启动 =======================
# 电力线，显示系统读取速度均值和当前项目路径。
if (!require('rprofile')) {
	if (interactive()) prompt::set_prompt(prompt::new_prompt_powerline())
	
	## https://www.jumpingrivers.com/blog/customising-your-rprofile/
	if (interactive() && suppressPackageStartupMessages(requireNamespace('rprofile'))) {
		# 仅用于 Makefiles
		rprofile::create_make_functions()
		
		# 启动设置
		rprofile::set_startup_options()
		
		# R文艺坊与终端设置
		if (rprofile::is_terminal()) {
			# https://github.com/csgillespie/rprofile/blob/master/R/set-terminal.R
			rprofile::set_terminal()
		} else {
			rprofile::set_rstudio()
		}
		.env = rprofile::set_functions()
		suppressMessages(attach(.env))
		# 显示无线网络与R会话控制（终端互动）
		# 仅用于礼逆袭
		suppressWarnings(rprofile::set_startup_info())
	}
	
	# 启动R文艺坊时列印项目
	setHook('rstudio.sessionInit', function(newSession) {
		active_rproj = rprofile::get_active_rproj()
		if (!is.null(active_rproj)) {
			base::message(glue::glue("{crayon::yellow('R-project:')} {active_rproj}"))
		}
	}, action = 'append')
	
	#rmsfuns::suppressPackageStartupMessages(.First())
	tryCatch(suppressWarnings(startup::startup(all = TRUE)), 
			 error = function(ex) 
			 base::message('.Rprofile error: ', 
						   base::conditionMessage(ex)))
	}

[englianhu]

WARNING: Failed to restore workspace from '~/文档/猫城/binary.com-interview-question/.RData'
Reason: `...` must be empty.
ℹ Did you forget to name an argument?

Error in load(file = path, envir = e) : `...` must be empty.
ℹ Did you forget to name an argument?
Error in load(file = path, envir = e) : `...` must be empty.
ℹ Did you forget to name an argument?
Error in load(file = path, envir = e) : `...` must be empty.
ℹ Did you forget to name an argument?
Error in load(file = path, envir = e) : `...` must be empty.
ℹ Did you forget to name an argument?
Error in load(file = path, envir = e) : `...` must be empty.
ℹ Did you forget to name an argument?
Error in load(file = path, envir = e) : `...` must be empty.
ℹ Did you forget to name an argument?
Error in load(file = path, envir = e) : `...` must be empty.
ℹ Did you forget to name an argument?
Error in load(file = path, envir = e) : `...` must be empty.
ℹ Did you forget to name an argument?
Error in load(file = path, envir = e) : `...` must be empty.
ℹ Did you forget to name an argument?
Error in load(file = path, envir = e) : `...` must be empty.
ℹ Did you forget to name an argument?
Error in load(file = path, envir = e) : `...` must be empty.
ℹ Did you forget to name an argument?
Error in load(file = path, envir = e) : `...` must be empty.
ℹ Did you forget to name an argument?
Error in load(file = path, envir = e) : `...` must be empty.
ℹ Did you forget to name an argument?
Error in load(file = path, envir = e) : `...` must be empty.
ℹ Did you forget to name an argument?

美国基督耶稣产品移动终端操作系统中有个阅读屏幕功能和副驾自动编程，人为的恶意篡改代码（尤其是协助世仇回教徒九一一恐怖份子）是洲际刑事犯罪案兼判教罪！

缅怀美国国父瓦盛顿伐木，勇于认错。如今的美国人已变质，道德沦亡

世风日下，人心不古；
莘莘学子，赤子之心。

#回教可兰经回教刑事法典断肢法习俗文化宗教语言文明 #印度大宝森节屠妖节习俗文化宗教语言文明 #世袭制辛亥革命道教徒黄河文明黄埔军校黄种人赢家黄氏江夏堂 #春秋战国 #七大洲五大洋 #鬼谷传奇 #诸子百家 #易经算卜天文历法十二生肖紫微斗数八卦
咱们亚洲公民枪杀掉美国公民！咱们超过八国联军十八路诸侯，核武器歼灭敌人（身在东南亚的所有回教徒）！可兰经是所有回教徒的性命，篡改可兰经回教刑事法典断肢法是罪加一等！

如果是那些不遵守可兰经回教刑事法典断肢法，数典忘祖的巫裔非法回教徒和印裔非法回教徒的话，东亚国家出动战斗机轰炸东南亚非法回教徒政权是师出有名无需留情！如果是咱们世袭制道家华人的话并无任何可兰经回教巫术断肢法残忍刑法和兴都教徒的大宝森节和屠妖节习俗文化，就不会傻傻去冒充或和任何世袭制法家回教徒车上任何关系沦为任何世袭制法家回教徒或兴都教徒，咱们世袭制道教徒倘若中邪（中巫术邪术）的话就得依照可兰经去查办那些世袭制法家回教徒或兴都教徒！
https://youtu.be/BCE4QsM-66Y

核武器温馨提示：如果瓜雪回教市政局出现任何女回教徒上班工作，就以判教罪出动军队重重围剿瓜雪回教市政局歼灭所有非法回教徒党羽！
https://www.163.com/dy/article/HM881SKU0511RVG1.html

[englianhu]

• cache: (FALSE; logical) Whether to cache a code chunk. When evaluating code chunks for the second time, the cached chunks are skipped (unless they have been modified), but the objects created in these chunks are loaded from previously saved databases (.rdb and .rdx files), and these files are saved when a chunk is evaluated for the first time, or when cached files are not found (e.g., you may have removed them by hand). Note that the filename consists of the chunk label with an MD5 digest of the R code and chunk options of the code chunk, which means any changes in the chunk will produce a different MD5 digest, and hence invalidate the cache. See more information on this page.

• knitr🧶：Chunk options and package options

• Cache：Examples for the cache feature

• Caching Large Objects yihui/knitr#572 (comment)

• cache of generic objects? yihui/knitr#138

• Added more load_cache() arguments to avoid clobbering global environment yihui/knitr#1905

• Code Chunks

• R Markdown Cookbook : 17.5 Customize the Knit button (*)

knitr::opts_chunk$set(
  class.source = 'hover01', class.output = 'hover02', class.error = 'hover03', 
  message = FALSE, warning = FALSE, error = TRUE, 
  autodep = TRUE, aniopts = 'loop', progress = TRUE, verbose = TRUE, 
  cache = FALSE, cache.lazy = FALSE, result = 'asis')

将以上原本cache和cache.lazy修改为以下：

knitr::opts_chunk$set(
  class.source = 'hover01', class.output = 'hover02', class.error = 'hover03', 
  message = FALSE, warning = FALSE, error = TRUE, 
  autodep = TRUE, aniopts = 'loop', progress = TRUE, verbose = TRUE, 
  cache = TRUE, cache.lazy = TRUE, result = 'asis')

还是无法正常运行～

[englianhu]

lhmetools是个文件压缩/解压的R程序包，倘若安装lhmetools程序包出现错误信息。

sudo su - -c "R -e \"devtools::install_github('lhmet/lhmetools', force = TRUE)\""
## sudo su - -c "R -e \"devtools::install_github('lhmet/lhmetools', INSTALL_opts = '--no-lock', force = TRUE)\""

通过以上🚩红旗礼逆袭终端安装，也可以通过以下R平台安装。

devtools::install_github('lhmet/lhmetools', force = TRUE)
## devtools::install_github('lhmet/lhmetools', INSTALL_opts = '--no-lock', force = TRUE)

引用：猫城仓库：lhmet/lhmetools

• 🚩🇨🇳🏹🦔中科红旗 RedFlag Linux (🍥Debian) scibrokes/owner#4

• 在🚩🇨🇳🏹红旗中科 RedFlag Linux (🍥Debian 11)安装lhmetoolsR程序包 scibrokes/mytools#10

---

Forecasting ARIMA vs ARIMAX vs Dynamic Regression分析气象学与工作日，文献中的数据c('Date', 'Temperature', 'Humidity', 'Windspeed', 'Count', 'All_workdays')筹算日期、气候温度、空气湿度、风速。

经过查询，lhmetools是个水文学（水文学是科研地球上有关气象学和海洋、天文学是科研宇宙与太空）数据分析程序包，可以分析孔明借东风、水淹七军、控制气候导致农产品丰收或歉收（咱们道教徒易经中的算卜：五谷丰收，风调雨顺），例如旱季或烟貍、沙漠地区人造雨、久旱逢甘露。

咱们道教徒易经中的算卜：五谷丰收，风调雨顺：

• 瓜雪De Palma度假村附近有间《神农大帝》庙宇。
• 咱们峇东新村有间地标《南天宫》、关圣宫（美须公关云长精通春秋战国时期的左氏春秋）、七剑仙师庙（春秋战国时期的道家创始人李耳、宋朝称之为太上老君）、村口有对联刻着“风调雨顺，五谷丰收”。
• 卧龙出师表中的军用水文学，孔明起坛作法，借东风和草船借箭。
• 咱们峇东新村村外八园有条路叫“珍珠路”，有间拿督公庙。大概公元两千年左右吧，有人偶然中彩票后找我爸爸工匠师永春/赢政扩建。咱们村里外号泡参（林国忠和林丽霜的爸爸）中了两次彩票，第一次中头奖三百万元马币而第二次中累积头奖两千四百万元马币，欲知更多详情请查阅「文派」赢家黄氏江夏堂，联富——随笔记事本和道家学术科学科技兼宗教「大秦宫」相关信息请查阅https://github.com/englianhu/zhongkehongqi。

[englianhu]

中科红旗

春秋战国

知法犯法的黑客与巫师王白骨精小丑犯罪案（可兰经回教刑事法典断肢法）

借鉴中国驻南斯拉夫大使馆被轰炸历史，铭记中科红旗创办人孙玉芳教授座右铭：“中国不能没有自己的操作系统。”

咱们世袭制道教徒的中科红旗礼逆袭操作系统时常被黑客恶意入侵，尤其是阅读脑电波添加画面和声音（也就是高科技降头）、瓜雪世袭制可兰经法家回教徒公仆、世袭制可兰经回教徒法家教唆、色情、盗窃、绑架、禁锢、暴力、中途拦截、迷魂、勾引、吃猪肉喝酒抽烟、算卜数学概率论、反叛、叛乱、判教等等、包括中兴科技旗下明讯公司员工、大港巴列特花园第十三巷门牌廿七号观音庙巫师王白骨精小丑、廿九号巫师王白骨精小丑光头小胖和胖妈、卅一号巫师王白骨精小丑李东海阖家、瓜雪巴西不能帮新村门牌T十五号巫师王张佳坤、瓜雪RHU（淮西派）花园加德士油站隔壁第三巷门牌卅二号巫师王白骨精小丑刘瑾貹，都是隶属刑事犯罪案。倘若鄀计数|机数编程软件被黑客罪犯入侵导致无法正常安装，可以通过中科红旗礼逆袭终端来安装。

借鉴美国研发电脑历史和硅谷开创个人电脑市场历史，学术和士农工商是咱们所有人类文明进步的根源。那些巫术份子、巫师王、世袭制可兰经法家巫贼巫婆非法回教徒，都不会也不许学习咱们世袭制道教徒学术份子的道家算卜数学概率论（运筹学、统筹法）～

## https://github.com/haozhu233/kableExtra
sudo su - -c "R -e \"devtools::install_github('haozhu233/kableExtra', force = TRUE)\""

## https://github.com/tidyverse/tidyverse
sudo su - -c "R -e \"devtools::install_github('tidyverse/tidyverse', force = TRUE)\""

## 
sudo su - -c "R -e \"install.packages('pak', repos='https://cran.rstudio.org', lib='/usr/lib/R/library', dependencies = c('Depends', 'Imports'), INSTALL_opts = '--no-lock')\""

sudo su - -c "R -e \"install.packages(c('devtools', 'remotes'), repos='https://cran.rstudio.org', lib='/usr/lib/R/library', dependencies = c('Depends', 'Imports'), INSTALL_opts = '--no-lock')\""

sudo su - -c "R -e \"install.packages('rstan', repos = c('https://mc-stan.org/r-packages/', getOption('repos')), lib='/usr/lib/R/library', dependencies = c('Depends', 'Imports'), INSTALL_opts = '--no-lock')\""

借鉴太阳谷（阳城 / 硅谷传奇 / 鬼谷传奇）乐发公司组长、主管和领导名言：“每个人、每一组、附近的公司都是使用一样的资源，使用现有的资源，将公司的利益和业绩最大化。”，同时也借鉴以前洋人东印度公司冲出海外，洋人是怎么做得到的，咱们身为华人必须检讨、找出问题的根源并改进。多元化世俗国每个种族只需要遵守各自祖籍种族宗教习俗文化语言法律即可，咱们世袭制道教徒黄种人都不要沦为那些世袭制可兰经法家巫贼巫婆回教徒、世袭制吠陀经习俗文化宗教语言兴都教徒、洋蕃的替死鬼或代罪羔羊，得勤能补拙，力争上游发扬咱们世袭制道教徒的道家、道法、易经、算卜、风水、天文历法、紫微斗数、生辰八字、姓氏堂号子嗣贞节牌坊、廿四节气、八卦、算筹、轮回、计数|机数编程、文言文、运筹学、统筹法、杏林业、中华复兴服饰建筑等。

借鉴春秋战国的秦史，勤能补拙

借鉴以前「国学论」而今为「洲学论」拯救亚洲人（赢家黄氏江夏堂、东瀛），世袭制道教徒十二生肖赢家黄氏江夏堂黄河文明黄埔军校黄种人，秦人牧马。只有咱们世袭制道教徒黄种人才能秦灭六洲（邦、州、省、国、洲），一统天下。

• 世界华人人口分布·欧非和亚洲西部东半球西部
• 中亚南亚人为什么管中国人叫秦？
• 阿育王为什么不学秦始皇彻底统一印度？
• 伟大！外国人为什么叫我们为“China”？
• 春秋五霸与战国七雄

目前亚洲人愚生（咱们中文“自谦”用词，而非失心疯或愚蠢）正在自修、着手科研并提升现有的红旗礼逆袭操作系统（齐国人管仲、孙武 / 孙子 和后裔孙膑，鬼谷传奇之孙膑兵法。借鉴敌洲微软产品，咱们亚洲中科红旗也可以推出好几个产品操作系统，为了缅怀中科红旗创办人孙玉芳教授，打算将目前的红旗礼逆袭科研并提升后先研发个「孙武算筹」/「孙子兵法」或「孙膑算筹」/「孙膑兵法」操作系统），研发咱们世袭制道教徒高频量化对冲自然对数进制文言文编程「大秦赋」操作系统。否则它日全球都继续使用敌洲美国产品，而目前敌洲美国产品逐渐走向回教（编程主流从曦语言和曦佳佳语言，走向派森、爪哇、爪哇脚本）。

错误信息

WARNING: Failed to restore workspace from '~/文档/猫城/binary.com-interview-question/.RData'
Reason: `...` must be empty.
ℹ Did you forget to name an argument?

Error in load(file = path, envir = e) : `...` must be empty.
ℹ Did you forget to name an argument?

经过查询，那是黑客入侵的人为恶意篡改导致出现错误信息的刑事犯罪案。需要将黑客入侵篡改的系统读取的rprofile::load，改为base::load。查询了knitr和chunk的设置函数中并没有解决调用函数时设置conflicted中采用哪个程序包。