侵入石

library("dplyr")

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library("ggplot2")
library("reshape")

## Warning: package 'reshape' was built under R version 3.6.2

## 
## Attaching package: 'reshape'

## The following object is masked from 'package:dplyr':
## 
##     rename

library("reshape2")

## 
## Attaching package: 'reshape2'

## The following objects are masked from 'package:reshape':
## 
##     colsplit, melt, recast

library("stargazer")

## 
## Please cite as:

##  Hlavac, Marek (2018). stargazer: Well-Formatted Regression and Summary Statistics Tables.

##  R package version 5.2.2. https://CRAN.R-project.org/package=stargazer

library(zoo)

## Warning: package 'zoo' was built under R version 3.6.3

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

library(forecast)

## Warning: package 'forecast' was built under R version 3.6.3

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

library(ggfortify)

## Warning: package 'ggfortify' was built under R version 3.6.3

## Registered S3 methods overwritten by 'ggfortify':
##   method                 from    
##   autoplot.Arima         forecast
##   autoplot.acf           forecast
##   autoplot.ar            forecast
##   autoplot.bats          forecast
##   autoplot.decomposed.ts forecast
##   autoplot.ets           forecast
##   autoplot.forecast      forecast
##   autoplot.stl           forecast
##   autoplot.ts            forecast
##   fitted.ar              forecast
##   fortify.ts             forecast
##   residuals.ar           forecast

library(ggplot2)
library(gridExtra)

## Warning: package 'gridExtra' was built under R version 3.6.2

## 
## Attaching package: 'gridExtra'

## The following object is masked from 'package:dplyr':
## 
##     combine

library(vars)

## Warning: package 'vars' was built under R version 3.6.3

## Loading required package: MASS

## 
## Attaching package: 'MASS'

## The following object is masked from 'package:dplyr':
## 
##     select

## Loading required package: strucchange

## Warning: package 'strucchange' was built under R version 3.6.3

## Loading required package: sandwich

## Warning: package 'sandwich' was built under R version 3.6.3

## Loading required package: urca

## Warning: package 'urca' was built under R version 3.6.3

## Loading required package: lmtest

## Warning: package 'lmtest' was built under R version 3.6.3

library(astsa)

## Warning: package 'astsa' was built under R version 3.6.3

## 
## Attaching package: 'astsa'

## The following object is masked from 'package:forecast':
## 
##     gas

library(forecast)
library(tseries)

## Warning: package 'tseries' was built under R version 3.6.3

library(ggthemes) # ver. 2.1.2 

## Warning: package 'ggthemes' was built under R version 3.6.2

library(tidyr)    # ver. 0.2.0

## 
## Attaching package: 'tidyr'

## The following object is masked from 'package:reshape2':
## 
##     smiths

## The following objects are masked from 'package:reshape':
## 
##     expand, smiths

library(dplyr)    # ver. 0.4.2
library(grid)     # ver. 3.2.1
library(compiler) # ver. 3.2.1
library(fGarch)

## Warning: package 'fGarch' was built under R version 3.6.3

## Loading required package: timeDate

## Loading required package: timeSeries

## Warning: package 'timeSeries' was built under R version 3.6.3

## 
## Attaching package: 'timeSeries'

## The following object is masked from 'package:zoo':
## 
##     time<-

## Loading required package: fBasics

## Warning: package 'fBasics' was built under R version 3.6.3

## 
## Attaching package: 'fBasics'

## The following object is masked from 'package:astsa':
## 
##     nyse

library("rugarch")

## Warning: package 'rugarch' was built under R version 3.6.3

## Loading required package: parallel

## 
## Attaching package: 'rugarch'

## The following object is masked from 'package:stats':
## 
##     sigma

library("lattice")
library(openxlsx)

## Warning: package 'openxlsx' was built under R version 3.6.2

X <- read.xlsx(“浸入石3区-1126.xlsx”)

X <- read.xlsx("浸入石3区-1126.xlsx")

hist(X$zaisitu)