global_optimise_LM_tnarpq {PNAR} | R Documentation |
Optimization of the score test statistic for the T-PNAR(p) model
Description
Global optimization of the linearity test statistic for the Threshold Poisson
Network Autoregressive model of order p
with q
covariates
(T-PNAR(p
)) with respect to the nuisance threshold parameter \gamma
.
Usage
global_optimise_LM_tnarpq(gama_L = NULL, gama_U = NULL, len = 10, b, y, W,
p, d, Z = NULL, tol = 1e-9)
Arguments
gama_L |
The lower value of the |
gama_U |
The upper value of the |
len |
The number of increments to consider for the |
b |
The estimated parameters from the linear model, in the following order:
(intercept, network parameters, autoregressive parameters, covariates).
The dimension of the vector should be |
y |
A |
W |
The |
p |
The number of lags in the model. |
d |
The lag parameter of non-linear variable (should be between 1 and |
Z |
An |
tol |
Tolerance level for the optimizer. |
Details
The function optimizes the quasi score test statistic, under the null assumption of linearity,
for testing linearity of Poisson Network Autoregressive model of order p
against the following T-PNAR(p
) model, with respect to the unknown nuisance parameter (\gamma
). For each node of the network i=1,...,N
over
the time sample t=1,...,TT
\lambda_{i,t}=\beta_{0}+\sum_{h=1}^{p}\left[\beta_{1h}X_{i,t-h}+\beta_{2h}Y_{i,t-h}+(\alpha_{0}+\alpha_{1h}X_{i,t-h} +\alpha_{2h}Y_{i,t-h})I(X_{i,t-d}\leq\gamma)\right]+\sum_{l=1}^{q}\delta_{l}Z_{i,l}
where X_{i,t}=\sum_{j=1}^{N} W_{ij}Y_{j,t}
is the network effect, i.e. the weighted average impact of node i
connections, with the weights of the mean being W_{ij}
, the single element of the network matrix W
, and I()
is the indicator function. The sequence \lambda_{i,t}
is the expectation of Y_{i,t}
, conditional to its past values.
The null hypothesis of the test is defined as H_{0}: \alpha_{0}=\alpha_{11}=...=\alpha_{2p}=0
, versus the alternative that at least one among \alpha_{s,h}
is not 0
, for s=0,1,2
. The test statistic has the form
LM(\gamma)=S^{'}(\hat{\theta},\gamma)\Sigma^{-1}(\hat{\theta},\gamma)S(\hat{\theta},\gamma)
where
S(\hat{\theta},\gamma)=\sum_{t=1}^{TT}\sum_{i=1}^{N}\left(\frac{Y_{i,t}}{\lambda_{i,t}(\hat{\theta},\gamma)}-1\right)\frac{\partial\lambda_{i,t}(\hat{\theta},\gamma)}{\partial\alpha}
is the partition of the quasi score related to the vector of non-linear parameters \alpha=(\alpha_{0},...,\alpha_{2p})
, evaluated at the estimated parameters \hat{\theta}
under the null assumption H_{0}
(linear model) and \Sigma(\hat{\theta},\gamma)
is the variance of S(\hat{\theta},\gamma)
.
The optimization employes the Brent algorithm (Brent, 1973) applied in the interval from gama_L
to gama_U
. To be sure that the global optimum is found, the optimization is performed at (len
-1) consecutive equidistant sub-intervals and then the maximum over them is taken as global optimum.
The values of gama_L
and gama_U
are computed internally as the mean over i=1,...,N
of 20\%
and 80\%
quantile of the empirical distribution of the network mean X_{i,t}
for t=1,...,TT
. In this way the optimization is performed for values of \gamma
such that the indicator function I(X_{i,t-d}\leq\gamma)
is not always close to 0 or 1. Alternatively, their value can be supplied by the user. For details see Armillotta and Fokianos (2022b, Sec. 4-5).
Value
A list including:
gama |
The optimum value of the |
supLM |
The value of the objective function at the optimum. |
int |
A vector with the extremes points of sub-intervals. |
Author(s)
Mirko Armillotta, Michail Tsagris and Konstantinos Fokianos.
References
Armillotta, M. and K. Fokianos (2022a). Poisson network autoregression. https://arxiv.org/abs/2104.06296
Armillotta, M. and K. Fokianos (2022b). Testing linearity for network autoregressive models. https://arxiv.org/abs/2202.03852
Armillotta, M., Tsagris, M. and Fokianos, K. (2022c). The R-package PNAR for modelling count network time series. https://arxiv.org/abs/2211.02582
Brent, R. (1973) Algorithms for Minimization without Derivatives. Prentice-Hall, Englewood Cliffs N.J.
See Also
score_test_tnarpq_j, global_optimise_LM_stnarpq,
score_test_stnarpq_j
Examples
data(crime)
data(crime_W)
mod1 <- lin_estimnarpq(crime, crime_W, p = 2)
b <- mod1$coefs[, 1]
global_optimise_LM_tnarpq(b = b, y = crime, W = crime_W, p = 2, d = 1)