预计阅读 31 分钟

预测朗格拉普岛核辐射强度的分布





本文内容属于空间分析的范畴,空间分析的内容十分广泛,本文仅以一个模型和一个数据简略介绍。一个模型是空间广义线性混合效应模型,空间广义线性混合效应模型在流行病学、生态学、环境学等领域有广泛的应用,如预测某地区内的疟疾流行度分布,预测某地区 PM 2.5 污染物浓度分布等。一个数据来自生态学领域,数据集所含样本量不大,但每个样本收集成本不小,采集样本前也都有实验设计,数据采集的地点是预先设定的。下面将对真实数据分析和建模,任务是预测核辐射强度在朗格拉普岛上的分布。

1 数据说明

在第二次世界大战的吉尔伯特及马绍尔群岛战斗中,美国占领了马绍尔群岛。战后,美国在该群岛的比基尼环礁中陆续进行了许多氢弹核试验,对该群岛造成无法弥补的环境损害。位于南太平洋的朗格拉普环礁是马绍尔群岛的一部分,其中,朗格拉普岛是朗格拉普环礁的主岛,修建有机场,在太平洋战争中是重要的军事基地。朗格拉普岛距离核爆炸的位置较近,因而被放射性尘埃笼罩了,受到严重的核辐射影响,从度假胜地变成人间炼狱,居民出现上吐下泻、皮肤灼烧、脱发等症状。即便是 1985 年以后,那里仍然无人居住,居民担心核辐射对身体健康的影响。又几十年后,一批科学家来到该岛研究生态恢复情况,评估当地居民重返家园的可行性。实际上,该岛目前仍然不适合人类居住,只有经批准的科学研究人员才能登岛。

朗格拉普环礁和朗格拉普岛

图 1.1: 朗格拉普环礁和朗格拉普岛

Ole F. Christensen 和 Paulo J. Ribeiro Jr 将 rongelap 数据集存放在 geoRglm[1] 包内,后来,geoRglm 不维护,已从 CRAN 移除了,笔者从他们主页下载了数据。数据集 rongelap 记录了 157 个测量点的伽马射线强度,即在时间间隔 time (秒)内放射的粒子数目 counts(个),测量点的横纵坐标分别为 cX (米)和 cY(米),下表展示部分朗格拉普岛核辐射检测数据及海岸线坐标数据。

cX 横坐标 cY 纵坐标 counts 数目 time 时间
-6050 -3270 75 300
-6050 -3165 371 300
-5925 -3320 1931 300
-5925 -3165 4357 300
-5800 -3350 2114 300
-5800 -3165 2318 300
cX 横坐标 cY 纵坐标
-5509 -3577
-5545 -3582
-5562 -3577
-5581 -3575
-5600 -3564
-5606 -3561

坐标原点在岛的东北,下图 1.2 第一个子图 右上角的位置。采样点的编号见下 图 1.2 第二个子图,基本上按照从下(南)到上(北),从左(西)到右(东)的顺序依次测量。

采样点在岛上的分布采样点在岛上的分布

图 1.2: 采样点在岛上的分布

2 数据探索

朗格拉普岛呈月牙形,有数千米长,但仅几百米宽,十分狭长。采样点在岛上的分布如 图 1.2 所示,主网格以约 200 米的间隔采样,在岛屿的东北和西南方各有两个密集采样区,每个网格采样区是 5×55×5 方式排列的,上下左右间隔均为 40 米。朗格拉普岛上各个检测站点的核辐射强度如 图 2.1 所示,越亮表示核辐射越强,四个检测区的采样阵列非常密集,通过局部放大展示了最左侧的一个检测区,它将作为后续模型比较的参照区域。

岛上各采样点的核辐射强度

图 2.1: 岛上各采样点的核辐射强度

ggplot2 包只能在二维平面上展示数据,对于空间数据,立体图形更加符合数据产生背景。如 图 2.2 所示,以三维图形展示朗格拉普岛上采样点的位置及检测到的辐射强度。lattice 包的函数 cloud() 可以绘制三维的散点图,将自定义的面板函数 panel.3dcoastline() 传递给参数 panel.3d.cloud 绘制岛屿海岸线。组合点和线两种绘图元素构造出射线,线的长短表示放射性的强弱,以射线表示粒子辐射现象更加贴切。

岛上各采样点的辐射强度

图 2.2: 岛上各采样点的辐射强度

3 数据建模

3.1 广义线性模型

核辐射是由放射元素衰变产生的,通常用单位时间释放出来的粒子数目表示辐射强度,因此,建立如下泊松型广义线性模型来拟合核辐射强度。

log(λi)=βyiPoisson(tiλi)log(λi)=βyiPoisson(tiλi)

其中,λiλi 表示核辐射强度,ββ 表示未知的截距,yiyi 表示观测到的粒子数目,titi 表示相应的观测时间,i=1,,157i=1,,157 表示采样点的位置编号。R 软件内置的 stats 包有函数 glm() 可以拟合上述广义线性模型,代码如下。

fit_rongelap_poisson <- glm(counts ~ 1,
  family = poisson(link = "log"), offset = log(time), data = rongelap
)
summary(fit_rongelap_poisson)
## 
## Call:
## glm(formula = counts ~ 1, family = poisson(link = "log"), data = rongelap, 
##     offset = log(time))
## 
## Coefficients:
##             Estimate Std. Error z value Pr(>|z|)    
## (Intercept)  2.01395    0.00145    1385   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for poisson family taken to be 1)
## 
##     Null deviance: 61567  on 156  degrees of freedom
## Residual deviance: 61567  on 156  degrees of freedom
## AIC: 63089
## 
## Number of Fisher Scoring iterations: 4

family = poisson(link = "log") 时,响应变量只能是正整数,所以不能放 counts / time。泊松广义线性模型是对辐射强度建模,辐射强度与位置 cXcY 有关。当响应变量为放射出来的粒子数目 counts 时,为了表示辐射强度,需要设置参数 offset,表示与放射粒子数目对应的时间间隔 time。联系函数是对数函数,因此时间间隔需要取对数。

从辐射强度的拟合残差的空间分布 图 3.1 不难看出,颜色深和颜色浅的点分别聚集在一起,且与周围点的颜色呈现层次变化,拟合残差存在明显的空间相关性。如果将位置变量 cXcY 加入广义线性模型,也会达到统计意义上的显著。

rongelap$poisson_residuals <- residuals(fit_rongelap_poisson)
ggplot(rongelap, aes(x = cX, y = cY)) +
  geom_point(aes(colour = poisson_residuals / time), size = 0.2) +
  scale_color_viridis_c(option = "C") +
  theme_bw() +
  labs(x = "横坐标(米)", y = "纵坐标(米)", color = "残差")
残差的空间分布

图 3.1: 残差的空间分布

从另外一个角度来思考,通过观察辐射强度的直方图,发现其分布形式与正态分布相似。实际上,辐射强度为非负值,所以应与特定参数下的伽马分布相似。

ggplot(data = rongelap, aes(x = counts / time)) +
  geom_histogram(fill = "orange", color = "white", binwidth = 0.5) +
  theme_bw() +
  labs(x = "辐射强度", y = "频数")
辐射强度的直方图

图 3.2: 辐射强度的直方图

形状参数为 αα 和尺度参数为 σσ 的伽马分布的概率密度函数 f(x;α,σ)f(x;α,σ) 如下:

f(x;α,σ)=1σαΓ(α)xα1exp(xσ),α0,σ>0f(x;α,σ)=1σαΓ(α)xα1exp(xσ),α0,σ>0

其中,Γ()Γ() 表示伽马函数,下 图 3.3 展示两个伽马分布的概率密度函数,形状参数分别为 5 和 9,尺度参数均为 1,即伽马分布 f(x;5,1)f(x;5,1)f(x;9,1)f(x;9,1)

伽马分布的概率密度函数

图 3.3: 伽马分布的概率密度函数

所以,可以使用响应变量服从伽马分布的广义线性模型来拟合数据。

fit_rongelap_gamma <- glm(counts / time ~ 1,
  family = Gamma(link = "log"), data = rongelap
)
summary(fit_rongelap_gamma)
## 
## Call:
## glm(formula = counts/time ~ 1, family = Gamma(link = "log"), 
##     data = rongelap)
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)   2.0286     0.0287    70.6   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for Gamma family taken to be 0.1297)
## 
##     Null deviance: 26.932  on 156  degrees of freedom
## Residual deviance: 26.932  on 156  degrees of freedom
## AIC: 787.3
## 
## Number of Fisher Scoring iterations: 4

对于计数数据,除了泊松分布,还可以用负二项分布来拟合数据。

library(MASS)
fit_rongelap_negbin <- glm.nb(
  formula = counts ~ 1 + offset(log(time)),
  data = rongelap, link = log
)
summary(fit_rongelap_negbin)
## 
## Call:
## glm.nb(formula = counts ~ 1 + offset(log(time)), data = rongelap, 
##     link = log, init.theta = 6.033764551)
## 
## Coefficients:
##             Estimate Std. Error z value Pr(>|z|)    
## (Intercept)   2.0286     0.0325    62.4   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for Negative Binomial(6.034) family taken to be 1)
## 
##     Null deviance: 161.66  on 156  degrees of freedom
## Residual deviance: 161.66  on 156  degrees of freedom
## AIC: 2639
## 
## Number of Fisher Scoring iterations: 1
## 
## 
##               Theta:  6.034 
##           Std. Err.:  0.666 
## 
##  2 x log-likelihood:  -2635.054

泊松分布、伽马分布和负二项分布的对数似然函数值如下:

logLik(fit_rongelap_poisson)
## 'log Lik.' -31543 (df=1)
logLik(fit_rongelap_gamma)
## 'log Lik.' -391.7 (df=2)
logLik(fit_rongelap_negbin)
## 'log Lik.' -1318 (df=2)

三个广义线性模型的 AIC 统计量如下:

AIC(fit_rongelap_poisson)
## [1] 63089
AIC(fit_rongelap_gamma)
## [1] 787.3
AIC(fit_rongelap_negbin)
## [1] 2639

负二项广义线性模型拟合效果好于泊松广义线性,伽马广义线性模型响应变量与之不同,无法与之比较,将作为后续模型比较的基础模型。

3.2 广义线性混合效应模型

3.4 描述残差的分布,从第一个子图发现残差存在一定的线性趋势,岛屿的东南方,残差基本为正,而在岛屿的西北方,残差基本为负,说明有一定的异方差性。从第二子图发现残差在水平方向上的分布像个哑铃,说明异方差现象明显。从第三个子图发现残差在垂直方向上的分布像棵松树,也说明异方差现象明显。

ggplot(rongelap, aes(x = 1:157, y = poisson_residuals / time)) +
  geom_point(size = 1) +
  theme_bw() +
  labs(x = "编号", y = "残差")

ggplot(rongelap, aes(x = cX, y = poisson_residuals / time)) +
  geom_point(size = 1) +
  theme_bw() +
  labs(x = "横坐标", y = "残差")

ggplot(rongelap, aes(x = cY, y = poisson_residuals / time)) +
  geom_point(size = 1) +
  theme_bw() +
  labs(x = "纵坐标", y = "残差")
残差分布图残差分布图残差分布图

图 3.4: 残差分布图

既然异方差比较严重,给每个位置分配一个独立的方差是合理的,相当于添加一个随机效应。简单起见,假定异方差是相互独立的。

log(λi)=β+ZiyiPoisson(tiλi)log(λi)=β+ZiyiPoisson(tiλi)

其中,ZiZi 相互独立同正态分布 N(0,τ2)N(0,τ2) 。与之前类似,下面考虑响应变量为泊松分布、伽马分布和负二项分布的情况,采用 spaMM 包分别拟合上述模型。

library(spaMM)
fit_glmm_poisson <- fitme(
  formula = counts ~ 1 + (1 | dummy) + offset(log(time)),
  data = rongelap, family = poisson(link = "log")
)
summary(fit_glmm_poisson)
## formula: counts ~ 1 + (1 | dummy) + offset(log(time))
## Estimation of lambda by ML (p_v approximation of logL).
## Estimation of fixed effects by ML (p_v approximation of logL).
## family: poisson( link = log ) 
##  ------------ Fixed effects (beta) ------------
##             Estimate Cond. SE t-value
## (Intercept)    1.944  0.03767   51.61
##  --------------- Random effects ---------------
## Family: gaussian( link = identity ) 
##            --- Variance parameters ('lambda'):
## lambda = var(u) for u ~ Gaussian; 
##    dummy  :  0.2223  
##              --- Coefficients for log(lambda):
##  Group        Term Estimate Cond.SE
##  dummy (Intercept)   -1.504  0.1131
## # of obs: 157; # of groups: dummy, 157 
##  ------------- Likelihood values  -------------
##                      logLik
## logL       (p_v(h)):  -1337
fit_glmm_gamma <- fitme(
  formula = counts / time  ~ 1 + (1 | dummy),
  data = rongelap, family = Gamma(link = "log")
)
summary(fit_glmm_gamma)
## formula: counts/time ~ 1 + (1 | dummy)
## Estimation of lambda and phi by ML (P_v approximation of logL).
## Estimation of fixed effects by ML (P_v approximation of logL).
## family: Gamma( link = log ) 
##  ------------ Fixed effects (beta) ------------
##             Estimate Cond. SE t-value
## (Intercept)    2.029  0.03261   62.22
##  --------------- Random effects ---------------
## Family: gaussian( link = identity ) 
##            --- Variance parameters ('lambda'):
## lambda = var(u) for u ~ Gaussian; 
##    dummy  :  3.369e-06  
##              --- Coefficients for log(lambda):
##  Group        Term Estimate Cond.SE
##  dummy (Intercept)    -12.6   22.07
## # of obs: 157; # of groups: dummy, 157 
##  --- Residual variation ( var = phi * mu^2 )  --
## Coefficients for log(phi)  ~ 1  :
##             Estimate Cond. SE
## (Intercept)    -1.79   0.1113
## Estimate of phi:  0.1669 
##  ------------- Likelihood values  -------------
##                     logLik
## logL      (P_v(h)): -391.6
fit_glmm_negbin2 <- fitme(
  formula = counts ~ 1 + (1 | dummy) + offset(log(time)),
  data = rongelap, family = negbin2(link = "log")
)
summary(fit_glmm_negbin2)
## formula: counts ~ 1 + (1 | dummy) + offset(log(time))
## Estimation of fixed effects by ML (P_v approximation of logL).
## Estimation of lambda and NB_shape by 'outer' ML, maximizing logL.
## family: negbin2(shape=6.035)( link = log ) 
##  ------------ Fixed effects (beta) ------------
##             Estimate Cond. SE t-value
## (Intercept)    2.029  0.03253   62.35
##  --------------- Random effects ---------------
## Family: gaussian( link = identity ) 
##            --- Variance parameters ('lambda'):
## lambda = var(u) for u ~ Gaussian; 
##    dummy  :  6.385e-05  
## # of obs: 157; # of groups: dummy, 157 
##  ------------- Likelihood values  -------------
##                     logLik
## logL      (P_v(h)):  -1318

截距项 (Intercept) 的点估计和区间估计分别如下:

# 点估计
fixef(fit_glmm_poisson)
## (Intercept) 
##       1.944
fixef(fit_glmm_gamma)
## (Intercept) 
##       2.029
fixef(fit_glmm_negbin2)
## (Intercept) 
##       2.029
# 区间估计
confint(fit_glmm_poisson, parm = "(Intercept)")
## lower (Intercept) upper (Intercept) 
##             1.870             2.018
confint(fit_glmm_gamma, parm = "(Intercept)")
## lower (Intercept) upper (Intercept) 
##             1.965             2.094
confint(fit_glmm_negbin2, parm = "(Intercept)")
## lower (Intercept) upper (Intercept) 
##             1.965             2.094

随机效应的方差 τ2τ2 的点估计如下:

get_ranPars(fit_glmm_poisson)$lambda[[1]]
## [1] 0.2223
get_ranPars(fit_glmm_gamma)$lambda[[1]]
## [1] 3.369e-06
get_ranPars(fit_glmm_negbin2)$lambda[[1]]
## [1] 6.385e-05

对数似然函数值的计算如下:

logLik(fit_glmm_poisson)
##   p_v 
## -1337
logLik(fit_glmm_gamma)
##    P_v 
## -391.6
logLik(fit_glmm_negbin2)
##   P_v 
## -1318

对伽马分布和负二项分布,从广义线性模型到广义线性混合效应模型 ,提升可以忽略不计。而对泊松分布,提升十分明显。无论是广义线性模型还是广义线性混合效应模型,负二项分布比泊松分布的效果都好。

3.3 空间线性混合效应模型

从实际场景出发,也不难理解,位置信息是非常关键的。进一步,充分利用位置信息,精细建模是很有必要的。相邻位置的核辐射强度是相关的,离得近的比离得远的更相关。下面对辐射强度建模,假定随机效应之间存在相关性结构,去掉随机效应相互独立的假设,这更符合位置效应存在相互影响的实际情况。

log(λ(xi))=β+S(xi)+Zilog(λ(xi))=β+S(xi)+Zi(3.1)

其中,ββ 表示截距,相当于平均水平,λ(xi)λ(xi) 表示位置 xixi 处的辐射强度,S(xi)S(xi) 表示位置 xixi 处的空间效应,S(x),xDR2S(x),xDR2 是二维平稳空间高斯过程 SS 的具体实现。 DD 表示研究区域,可以理解为朗格拉普岛,它是二维实平面 R2R2 的子集。 ZiZi 之间相互独立同正态分布 N(0,τ2)N(0,τ2)ZiZi 表示非空间的随机效应,在空间统计中,常称之为块金效应,可以理解为测量误差、空间变差或背景辐射。值得注意,此时,块金效应和模型残差是合并在一起的。

3.3.1 自协方差函数

随机过程 S(x)S(x) 的自协方差函数常用的有指数型、幂二次指数型(高斯型)和梅隆型,形式如下:

Cov(S(xi),S(xj))=σ2exp(xixj2ϕ)Cov(S(xi),S(xj))=σ2exp(xixj222ϕ2)Cov(S(xi),S(xj))=σ221νΓ(ν)(2νxixj2ϕ)νKν(2νxixj2ϕ)Kν(x)=0exp(xcosht)cosh(νt)dtCov(S(xi),S(xj))=σ2exp(xixj2ϕ)Cov(S(xi),S(xj))=σ2exp(xixj222ϕ2)Cov(S(xi),S(xj))=σ221νΓ(ν)(2νxixj2ϕ)νKν(2νxixj2ϕ)Kν(x)=0exp(xcosht)cosh(νt)dt(3.2)

其中,KνKν 表示阶数为 νν 的修正的第二类贝塞尔函数,Γ()Γ() 表示伽马函数,当 ν=1/2ν=1/2 ,梅隆型将简化为指数型,当 ν=ν= 时,梅隆型将简化为幂二次指数型。固定 σ=1σ=1,自协方差函数图像如图 3.5 所示,不难看出,νν 影响自协方差函数的平滑性,控制点与点之间相关性的变化,νν 越大相关性越迅速地递减。ϕϕ 控制自协方差函数的范围,ϕϕ 越大相关性辐射距离越远。对模型来说,它们都是超参数。

梅隆型自协方差函数曲线

图 3.5: 梅隆型自协方差函数曲线

3.3.2 nlme 包的自相关函数

nlme 包中带块金效应的指数型自相关函数设定如下:

ρ(u;ϕ,τ2rel)=τ2rel+(1τ2rel)(1exp(uϕ))ρ(u;ϕ,τ2rel)=τ2rel+(1τ2rel)(1exp(uϕ))

为了方便参数估计,nlme 包对参数做了一些重参数化的操作。

τ2rel=τ2τ2+σ2σ2tol=τ2+σ2τ2rel=τ2τ2+σ2σ2tol=τ2+σ2(3.3)

uu 趋于 0 时, ρ(u;ϕ,τ2rel)=τ2relρ(u;ϕ,τ2rel)=τ2rel 。另外,ϕϕ 取值为正,τ2relτ2rel 取值介于 0-1 之间,在默认设置下,ϕϕ 的初始值为 0.1×maxi,jAuij0.1×maxi,jAuij,即所有点之间距离的最大值的 10%, τ2relτ2rel 为 0.1 ,这只是作为参考,用户可根据实际情况调整。

下面以一个简单示例理解自相关函数 corExp() 的作用,令 ϕ=1.2,τ2rel=0.2ϕ=1.2,τ2rel=0.2,则由距离矩阵和自相关函数构造的自相关矩阵如下:

library(nlme)
spatDat <- data.frame(x = (1:4) / 4, y = (1:4) / 4)
cs3Exp <- corExp(c(1.2, 0.2), form = ~ x + y, nugget = TRUE)
cs3Exp <- Initialize(cs3Exp, spatDat)
corMatrix(cs3Exp)
##        [,1]   [,2]   [,3]   [,4]
## [1,] 1.0000 0.5958 0.4438 0.3305
## [2,] 0.5958 1.0000 0.5958 0.4438
## [3,] 0.4438 0.5958 1.0000 0.5958
## [4,] 0.3305 0.4438 0.5958 1.0000

自相关矩阵的初始化结果等价于如下矩阵:

diag(0.2, 4) + (1 - 0.2) * exp(-as.matrix(dist(spatDat)) / 1.2)
##        1      2      3      4
## 1 1.0000 0.5958 0.4438 0.3305
## 2 0.5958 1.0000 0.5958 0.4438
## 3 0.4438 0.5958 1.0000 0.5958
## 4 0.3305 0.4438 0.5958 1.0000

除了函数 corExp()nlme 包还有好些自相关函数,如高斯自相关函数 corGaus() ,线性自相关函数 corLin() ,有理自相关函数 corRatio() ,球型自相关函数 corSpher() 等。它们的作用与函数 corExp() 类似,使用方式也一样,如下是高斯型自相关函数的示例,其他的不再一一举例。

cs3Gaus <- corGaus(c(1.2, 0.2), form = ~ x + y, nugget = TRUE)
cs3Gaus <- Initialize(cs3Gaus, spatDat)
corMatrix(cs3Gaus)
##        [,1]   [,2]   [,3]   [,4]
## [1,] 1.0000 0.7335 0.5653 0.3663
## [2,] 0.7335 1.0000 0.7335 0.5653
## [3,] 0.5653 0.7335 1.0000 0.7335
## [4,] 0.3663 0.5653 0.7335 1.0000
# 等价于
diag(0.2, 4) + (1 - 0.2) * exp(-as.matrix(dist(spatDat))^2 / 1.2^2)
##        1      2      3      4
## 1 1.0000 0.7335 0.5653 0.3663
## 2 0.7335 1.0000 0.7335 0.5653
## 3 0.5653 0.7335 1.0000 0.7335
## 4 0.3663 0.5653 0.7335 1.0000

3.3.3 nlme 包的拟合函数 gls()

nlme 包的函数 gls() 实现限制极大似然估计方法,可以拟合存在异方差的一般线性模型。所谓一般线性模型,即在简单线性模型的基础上,残差不再是独立同分布的,而是存在相关性。函数 gls() 可以拟合具有空间自相关性的残差结构。这种线性模型又可以看作是一种带空间自相关结构的线性混合效应模型,空间随机效应的结构可以看作异方差的结构。

fit_rongelap_gls <- gls(
  log(counts / time) ~ 1, data = rongelap,
  correlation = corExp(
    value = c(200, 0.1), form = ~ cX + cY, nugget = TRUE
  )
)
summary(fit_rongelap_gls)
## Generalized least squares fit by REML
##   Model: log(counts/time) ~ 1 
##   Data: rongelap 
##     AIC   BIC logLik
##   184.4 196.6 -88.22
## 
## Correlation Structure: Exponential spatial correlation
##  Formula: ~cX + cY 
##  Parameter estimate(s):
##    range   nugget 
## 169.7472   0.1092 
## 
## Coefficients:
##             Value Std.Error t-value p-value
## (Intercept) 1.813    0.1088   16.66       0
## 
## Standardized residuals:
##      Min       Q1      Med       Q3      Max 
## -5.57385 -0.06909  0.34610  0.73852  1.57152 
## 
## Residual standard error: 0.574 
## Degrees of freedom: 157 total; 156 residual

nlme 包给出截距项 ββ 、相对块金效应 τ2relτ2rel 、范围参数 ϕϕ 和残差标准差 σtolσtol 的估计,

β=1.812914,ϕ=169.7472088τ2rel=0.1092496,σtol=0.5739672β=1.812914,ϕ=169.7472088τ2rel=0.1092496,σtol=0.5739672

根据前面的 (3.3) ,可以得到 τ2τ2σ2σ2 的估计。

τ2=τ2rel×σ2tol=0.1092496×0.3294383=0.035991σ2=σ2tolτ2rel×σ2tol=0.573967220.1092496×0.3294383=0.2934473τ2=τ2rel×σ2tol=0.1092496×0.3294383=0.035991σ2=σ2tolτ2rel×σ2tol=0.573967220.1092496×0.3294383=0.2934473

nlme 包的另一个函数 lme() ,扩展了函数 gls() 的功能,支持添加额外的随机效应。下面在模型 (3.1) 的基础上添加一个变化的截距项,所有的采样位置归为一组,相当于添加一个随机项 ξξ ,一般假定它服从均值为 0 方差为 δ2δ2 的正态分布。这样下来,模型包含三块随机项,与空间位置关联的空间随机效应 S(x)S(x) ,与空间位置无关的块金效应 ZiZi,与分组变量 group 关联的随机效应 ξξ

rongelap$group <- 1
fit_rongelap_lme <- lme(
  log(counts / time) ~ 1, data = rongelap,
  random = ~ 1 | group,
  correlation = corExp(
    value = c(200, 0.1), form = ~ cX + cY, nugget = TRUE
  )
)
summary(fit_rongelap_lme)
## Linear mixed-effects model fit by REML
##   Data: rongelap 
##     AIC   BIC logLik
##   186.4 201.7 -88.22
## 
## Random effects:
##  Formula: ~1 | group
##         (Intercept) Residual
## StdDev:      0.1222    0.574
## 
## Correlation Structure: Exponential spatial correlation
##  Formula: ~cX + cY | group 
##  Parameter estimate(s):
##    range   nugget 
## 169.7472   0.1092 
## Fixed effects:  log(counts/time) ~ 1 
##             Value Std.Error  DF t-value p-value
## (Intercept) 1.813    0.1636 156   11.08       0
## 
## Standardized Within-Group Residuals:
##      Min       Q1      Med       Q3      Max 
## -5.57385 -0.06909  0.34610  0.73852  1.57152 
## 
## Number of Observations: 157
## Number of Groups: 1

3.3.4 经验半变差函数图

接下来用经验半变差函数图检查空间相关性。为方便表述起见,令 T(xi)T(xi) 代表 (3.1) 等号右侧的部分,即表示线性预测(Linear Predictor)。

T(xi)=β+S(xi)+ZiT(xi)=β+S(xi)+Zi

γ(uij)=12Var{T(xi)T(xj)}γ(uij)=12Var{T(xi)T(xj)} 表示半变差函数(Semivariogram),这里 uijuij 表示采样点 xixixjxj 之间的距离。考虑到

γ(uij)=12E{[T(xi)T(xj)]2}=τ2+σ2(1ρ(uij))γ(uij)=12E{[T(xi)T(xj)]2}=τ2+σ2(1ρ(uij))(3.4)

上式第一个等号右侧期望可以用样本代入来计算,称之为经验半变差函数,第二个等号右侧为理论半变差函数。为了便于计算,将距离做一定划分,尽量使得各个距离区间的样本点对的数目接近。此时,第 ii 个距离区间上经验半变差函数值 ˆγ(hi)^γ(hi) 的计算公式如下:

ˆγ(hi)=12N(hi)N(hi)j=1(T(xi)T(xi+h))2,  hi,0h<hi,1^γ(hi)=12N(hi)N(hi)j=1(T(xi)T(xi+h))2,  hi,0h<hi,1

其中,[hi,0,hi,1][hi,0,hi,1] 表示第 ii 个距离区间,N(hi)N(hi) 表示第 ii 个距离区间内所有样本点对的数目,只要两个点之间的距离在这个区间内,就算是一对。rongelap 数据集包含 157 个采样点,两两配对,共有 (1571)×157/2=12246(1571)×157/2=12246 对。

下面举个例子说明函数 Variogram() 的作用。假设模型参数已经估计出来了,为 ϕ=200,τ2rel=0.1ϕ=200,τ2rel=0.1 。当距离为 40 时,半变差函数值为 0.2631423 。

0.1  + (1 - 0.1) * (1 - exp(- 40 / 200 ) )
## [1] 0.2631

将 rongelap 数据代入函数 Variogram() 计算半变差函数值。

cs <- corExp(value = c(200, 0.1), form = ~ cX + cY, nugget = TRUE)
cs <- Initialize(cs, rongelap)
comp_vario <- Variogram(cs)
head(comp_vario)
##   variog  dist
## 1 0.2631  40.0
## 2 0.6266 176.0
## 3 0.8108 311.9
## 4 0.9041 447.9
## 5 0.9514 583.8
## 6 0.9754 719.8

可以看到,当距离为 40 时,计算的结果与上面是一致的,也知道了函数 Variogram() 的作用。

模型的参数是 nlme 包的函数 gls() 估计出来的,返回一个 gls 类型的拟合对象。函数 Variogram() 是一个泛型函数,对于 gls 类型的对象,会自动调用相应的方法计算经验半变差函数值:

fit_rongelap_vario <- Variogram(fit_rongelap_gls,
  form = ~ cX + cY, data = rongelap, resType = "response"
)
fit_rongelap_vario
##     variog    dist n.pairs
## 1  0.07007   89.44     510
## 2  0.12720  144.22     601
## 3  0.17289  252.98     581
## 4  0.22385  368.78     622
## 5  0.26006  443.85     592
## 6  0.20694  521.54     616
## 7  0.41862  718.05     611
## 8  0.30181 1028.20     610
## 9  0.16718 1493.74     612
## 10 0.14684 2150.08     612
## 11 0.15149 2993.10     612
## 12 0.21048 3896.79     613
## 13 0.21373 4600.21     618
## 14 0.17302 4889.68     607
## 15 0.20205 5065.98     618
## 16 0.18620 5195.77     623
## 17 0.18614 5294.00     596
## 18 0.20561 5451.83     616
## 19 0.46457 5604.42     608
## 20 0.55063 5979.96     612

为什么 fit_rongelap_vario 输出的 n.pairs 的总数是 12090?

结果显示,距离在 0-89.44272 米之间的坐标点有 510 对,经验半变差函数值为 0.07006716。距离在 89.44272-144.22205 米之间的坐标点有 601 对,经验半变差函数值为 0.12719889,依此类推。将距离和计算的经验半变差函数值绘制出来,即得到经验半变差图,如图 3.6 所示。刚开始,半变差值很小,之后随距离增加而增大,一直到达一个平台。半变差反比于空间相关性的程度,随着距离增加,空间相关性减弱。这说明数据中确含有空间相关性,模型中添加指数型自相关空间结构是合理的。

残差的经验半变差图

图 3.6: 残差的经验半变差图

如果空间相关性提取得很充分,则标准化残差的半变差图中的数据点应是围绕标准差 1 上下波动,无明显趋势,拟合线几乎是一条水平线,从 图 3.7 来看,存在一些非均匀的波动,是采样点在空间的分布不均匀所致,岛屿狭长的中部地带采样点稀疏。如前所述,刻画空间相关性,除了指数型,还可以用其它自相关结构来拟合,留待读者练习。

标准化残差的经验半变差图

图 3.7: 标准化残差的经验半变差图

3.4 空间广义线性混合效应模型

简单的广义线性模型并没有考虑距离相关性,它认为各个观测点的数据是相互独立的。因此,考虑采用广义线性混合效应模型,在广义线性模型的基础上添加位置相关的随机效应,用以刻画未能直接观测到的潜在影响。 137Cs137Cs 放出伽马射线,在 n=157n=157 个采样点,分别以时间间隔 titi 测量辐射量 y(xi)y(xi),建立泊松型空间广义线性混合效应模型。

log{λ(xi)}=β+S(xi)+Ziy(xi)Poisson(tiλ(xi))log{λ(xi)}=β+S(xi)+Ziy(xi)Poisson(tiλ(xi))(3.5)

模型中,放射粒子数 y(xi)y(xi) 作为响应变量服从均值为 tiλ(xi)tiλ(xi) 的泊松分布,其它模型成分的说明同前。

nlme 包不能拟合空间广义线性混合效应模型, spaMM 包可以,它的使用语法与前面介绍的函数 glm()nlme 包都类似,函数 fitme() 可以拟合从线性模型到广义线性混合效应模型的一大类模型,且使用统一的语法,输出一个 HLfit 类型的数据对象。 spaMM 包的函数 Matern() 实现了梅隆型自协方差函数,指数型和幂二次指数型是它的特例。当固定 ν=0.5ν=0.5 时,梅隆型自协方差函数 Matern() 的形式退化为 σ2exp(αu)σ2exp(αu) ,其中,αα 与范围参数关联,相当于前面出现的 1/ϕ1/ϕ

library(spaMM)
fit_rongelap_spamm <- fitme(
  formula = counts ~ 1 + Matern(1 | cX + cY) + offset(log(time)),
  family = poisson(link = "log"), data = rongelap,
  fixed = list(nu = 0.5)
)
summary(fit_rongelap_spamm)
## formula: counts ~ 1 + Matern(1 | cX + cY) + offset(log(time))
## Estimation of corrPars and lambda by ML (p_v approximation of logL).
## Estimation of fixed effects by ML (p_v approximation of logL).
## Estimation of lambda by 'outer' ML, maximizing logL.
## family: poisson( link = log ) 
##  ------------ Fixed effects (beta) ------------
##             Estimate Cond. SE t-value
## (Intercept)    1.831  0.08455   21.65
##  --------------- Random effects ---------------
## Family: gaussian( link = identity ) 
##                    --- Correlation parameters:
##     1.nu    1.rho 
## 0.500000 0.009683 
##            --- Variance parameters ('lambda'):
## lambda = var(u) for u ~ Gaussian; 
##    cX + cY  :  0.2964  
## # of obs: 157; # of groups: cX + cY, 157 
##  ------------- Likelihood values  -------------
##                      logLik
## logL       (p_v(h)):  -1318

从输出结果来看,模型固定效应的截距项 ββ1.831,随机效应的方差 σ2σ20.2964,对比函数 Matern() 实现的指数型自协方差函数公式与 (3.2) ,将输出结果转化一下,则 ϕ=1/0.00968=103.3ϕ=1/0.00968=103.3 ,表示在这个模型的设定下,空间相关性的最大影响距离为 103.3 米。

函数 fitme() 默认使用极大似然估计模型参数,也可以使用限制极大似然来估计。

fit_rongelap_spamm2 <- fitme(
  formula = counts ~ 1 + Matern(1 | cX + cY) + offset(log(time)),
  family = poisson(link = "log"), data = rongelap,
  fixed = list(nu = 0.5), method = "REML"
)
summary(fit_rongelap_spamm2)
## formula: counts ~ 1 + Matern(1 | cX + cY) + offset(log(time))
## Estimation of corrPars and lambda by REML (p_bv approximation of restricted logL).
## Estimation of fixed effects by ML (p_v approximation of logL).
## Estimation of lambda by 'outer' REML, maximizing restricted logL.
## family: poisson( link = log ) 
##  ------------ Fixed effects (beta) ------------
##             Estimate Cond. SE t-value
## (Intercept)    1.829  0.08797   20.78
##  --------------- Random effects ---------------
## Family: gaussian( link = identity ) 
##                    --- Correlation parameters:
##     1.nu    1.rho 
## 0.500000 0.009212 
##            --- Variance parameters ('lambda'):
## lambda = var(u) for u ~ Gaussian; 
##    cX + cY  :  0.3069  
## # of obs: 157; # of groups: cX + cY, 157 
##  ------------- Likelihood values  -------------
##                      logLik
## logL       (p_v(h)):  -1318
## Re.logL  (p_b,v(h)):  -1320

泊松分布的均值 E{y(xi)}=tiλ(xi)E{y(xi)}=tiλ(xi) 和方差 Var{y(xi)}Var{y(xi)} 的值是一样的。如果假定它们不同,比如方差是关于均值的二次函数,可以用负二项分布来拟合数据,一般来说效果会更加好,对数似然函数值 logL 在变大。

fit_rongelap_spamm3 <- fitme(
  formula = counts ~ 1 + Matern(1 | cX + cY) + offset(log(time)),
  family = negbin2(link = "log"), data = rongelap,
  fixed = list(nu = 0.5)
)
summary(fit_rongelap_spamm3)
## formula: counts ~ 1 + Matern(1 | cX + cY) + offset(log(time))
## Estimation of corrPars, lambda and NB_shape by ML (P_v approximation of logL).
## Estimation of fixed effects by ML (P_v approximation of logL).
## Estimation of lambda and NB_shape by 'outer' ML, maximizing logL.
## family: negbin2(shape=6.035)( link = log ) 
##  ------------ Fixed effects (beta) ------------
##             Estimate Cond. SE t-value
## (Intercept)    2.029  0.03253   62.35
##  --------------- Random effects ---------------
## Family: gaussian( link = identity ) 
##                    --- Correlation parameters:
##   1.nu  1.rho 
## 0.5000 0.5003 
##            --- Variance parameters ('lambda'):
## lambda = var(u) for u ~ Gaussian; 
##    cX + cY  :  6.385e-05  
## # of obs: 157; # of groups: cX + cY, 157 
##  ------------- Likelihood values  -------------
##                     logLik
## logL      (P_v(h)):  -1318

4 模型预测

接下来,预测给定的边界(海岸线)内任意位置的核辐射强度,展示全岛的核辐射强度分布。先从点构造多边形数据,再将多边形做网格划分,继而将网格中心点作为模型输入获得核辐射强度的预测值。

4.1 海岸线数据

海岸线上取一些点,点的数量越多,对海岸线的刻画越精确,这在转弯处体现得非常明显。海岸线的数据是以成对的坐标构成,导入 R 语言中,是以数据框的形式存储,为了方便后续的操作,引入空间数据操作的 sf [2],将核辐射数据和海岸线数据转化为 POINT 类型的空间点数据。

library(sf)
rongelap_sf <- st_as_sf(rongelap, coords = c("cX", "cY"), dim = "XY")
rongelap_coastline_sf <- st_as_sf(rongelap_coastline, coords = c("cX", "cY"), dim = "XY")

sf 包提供了大量操作空间数据的函数,比如函数 st_bbox() 计算一组空间数据的矩形边界,获得左下和右上两个点的坐标 (xmin,ymin)(xmax,ymax),下面还会陆续涉及其它空间数据操作。

st_bbox(rongelap_coastline_sf)
##     xmin     ymin     xmax     ymax 
## -6299.31 -3582.25    20.38   103.54

rongelap_coastline_sf 数据集是朗格拉普岛海岸线的采样点坐标,是一个 POINT 类型的数据,为了以海岸线为边界生成规则网格,首先连接点 POINT 构造多边形 POLYGON 对象。POINT 和 POLYGON 是 sf 包内建的基础的几何类型,其它复杂的空间类型是由它们衍生而来。函数 st_geometry 提取空间点数据中的几何元素,再用函数 st_combine 将点组合起来,最后用函数 st_cast 转换成 POLYGON 多边形类型。

rongelap_coastline_sfp <- st_cast(st_combine(st_geometry(rongelap_coastline_sf)), "POLYGON")

4.1 上下两个子图分别展示空间点集和多边形。上图是原始的采样点数据,下图是以点带线,串联 POINT 数据构造 POLYGON 数据后的多边形。后续的数据操作将围绕这个多边形展开。

# 点集
library(ggplot2)
ggplot(rongelap_coastline_sf) +
  geom_sf(size = 0.5) +
  theme_void()
# 多边形
ggplot(rongelap_coastline_sfp) +
  geom_sf(fill = "white", linewidth = 0.5) +
  theme_void()
朗格拉普岛海岸线的表示朗格拉普岛海岸线的表示

图 4.1: 朗格拉普岛海岸线的表示

4.2 边界处理

为了确保覆盖整个岛,处理好边界问题,需要一点缓冲空间,就是说在给定的边界线外围再延伸一段距离,构造一个更大的多边形,这可以用函数 st_buffer() 实现,根据海岸线构造缓冲区,得到一个 POLYGON 类型的几何数据对象。考虑到朗格拉普岛的实际大小,缓冲距离选择 50 米。

rongelap_coastline_buffer <- st_buffer(rongelap_coastline_sfp, dist = 50)

缓冲区构造出来的效果如图 4.2 所示,为了便于与海岸线对比,图中将采样点、海岸线和缓冲区都展示出来了。

ggplot() +
  geom_sf(data = rongelap_sf, size = 0.2) +
  geom_sf(data = rongelap_coastline_sfp, fill = NA, color = "gray30") +
  geom_sf(data = rongelap_coastline_buffer, fill = NA, color = "black") +
  theme_void()
朗格拉普岛海岸线及其缓冲区

图 4.2: 朗格拉普岛海岸线及其缓冲区

4.3 构造网格

接下来,利用函数 st_make_grid() 根据朗格拉普岛海岸缓冲线构造网格,朗格拉普岛是狭长的,因此,网格是 75×15075×150 的,意味着水平方向 75 行,垂直方向 150 列。网格的疏密程度是可以调整的,网格越密,格点越多,核辐射强度分布越精确,计算也越耗时。

# 构造带边界约束的网格
rongelap_coastline_grid <- st_make_grid(rongelap_coastline_buffer, n = c(150, 75))

函数 st_make_grid() 根据 rongelap_coastline_buffer 的矩形边界网格化,效果如图 4.4 所示,依次添加了网格、海岸线和缓冲区。实际上,网格只需要覆盖朗格拉普岛即可,岛外的部分是大海,不需要覆盖,根据现有数据和模型对岛外区域预测核辐射强度也没有意义,因此,在后续的操作中,岛外的网格都要去掉。函数 st_make_grid() 除了支持方形网格划分,还支持六边形网格划分。

ggplot() +
  geom_sf(data = rongelap_coastline_grid, fill = NA, color = "gray") +
  geom_sf(data = rongelap_coastline_sfp, fill = NA, color = "gray30") +
  geom_sf(data = rongelap_coastline_buffer, fill = NA, color = "black") +
  theme_void()
朗格拉普岛规则化网格操作

图 4.3: 朗格拉普岛规则化网格操作

接下来,调用 sf 包函数 st_intersects() 将小网格落在缓冲区和岛内的筛选出来,一共 1612 个小网格,再用函数 st_centroid() 计算这些网格的中心点坐标。函数 st_intersects() 的作用是对多边形和网格取交集,包含与边界线交叉的网格,默认返回值是一个稀疏矩阵,与索引函数 [.sf (这是 sf 包扩展 [ 函数的一个例子)搭配可以非常方便地过滤出目标网格。与之相关的函数 st_crosses() 可以获得与边界线交叉的网格。

# 将 sfc 类型转化为 sf 类型
rongelap_coastline_grid <- st_as_sf(rongelap_coastline_grid)
rongelap_coastline_buffer <- st_as_sf(rongelap_coastline_buffer)
rongelap_grid <- rongelap_coastline_grid[rongelap_coastline_buffer, op = st_intersects]
# 计算网格中心点坐标
rongelap_grid_centroid <- st_centroid(rongelap_grid)

过滤出来的网格如图 4.4 所示,全岛网格化后,图中将朗格拉普岛海岸线、网格都展示出来了。网格的中心点将作为新的坐标数据,后续要在这些新的坐标点上预测核辐射强度。

ggplot() +
  geom_sf(data = rongelap_coastline_sfp, 
          fill = NA, color = "gray30", linewidth = 0.5) +
  geom_sf(data = rongelap_grid, fill = NA, color = "gray30") +
  theme_void()
朗格拉普岛规则网格划分结果

图 4.4: 朗格拉普岛规则网格划分结果

4.4 整理数据

函数 st_coordinates() 抽取网格中心点的坐标并用函数 as.data.frame() 转化为数据框类型,新数据的列名需要和训练数据保持一致,最后补充漂移项 time,以便输入模型中。漂移项并不影响核辐射强度,指定为 300 或 400 都可以。

rongelap_grid_df <- as.data.frame(st_coordinates(rongelap_grid_centroid))
colnames(rongelap_grid_df) <- c("cX", "cY")
rongelap_grid_df$time <- 1

将数据输入 spaMM 包拟合的模型对象 fit_rongelap_spamm,并将模型返回的结果整理成数据框,再与采样点数据合并。predict() 是一个泛型函数,spaMM 包为模型对象提供了相应的预测方法。

# 预测值
rongelap_grid_pred <- predict(fit_rongelap_spamm,
  newdata = rongelap_grid_df, type = "response"
)
rongelap_grid_df$pred_sp <- as.vector(rongelap_grid_pred)
# 线性预测的方差
rongelap_grid_var <- get_predVar(fit_rongelap_spamm,
  newdata = rongelap_grid_df, variances = list(predVar = TRUE), which = "predVar"
)
## Non-identity link: predVar is on linear-predictor scale.
rongelap_grid_df$var_sp <- as.vector(rongelap_grid_var)

在空间线性混合效应模型一节,截距 ββ ,方差 σ2σ2 ,块金效应 τ2τ2 和范围参数 ϕϕ 都估计出来了。在此基础上,采用简单克里金插值方法预测,对于未采样观测的位置 x0x0,它的辐射强度的预测值 ˆλ(x0)^λ(x0) 及其预测方差 Var{ˆλ(x0)}Var{^λ(x0)} 的计算公式如下。

ˆλ(x0)=β+u(V+τ2I)1(λ1β)Var{ˆλ(x0)}=σ2u(V+τ2I)1u^λ(x0)=β+u(V+τ2I)1(λ1β)Var{^λ(x0)}=σ2u(V+τ2I)1u

其中,协方差矩阵 VV 中第 ii 行第 jj 列的元素为 Cov{S(xi),S(xj)}Cov{S(xi),S(xj)} ,列向量 uu 的第 ii 个元素为 Cov{S(xi),S(x0)}Cov{S(xi),S(x0)}

# 截距
beta <- 1.812914
# 范围参数
phi <- 169.7472088
# 方差
sigma_sq <- 0.2934473
# 块金效应
tau_sq <- 0.035991
# 自协方差函数
cov_fun <- function(h) sigma_sq * exp(-h / phi)
# 观测距离矩阵
m_obs <- cov_fun(st_distance(x = rongelap_sf)) + diag(tau_sq, 157)
# 预测距离矩阵
m_pred <- cov_fun(st_distance(x = rongelap_sf, y = rongelap_grid_centroid))
# 简单克里金插值 Simple Kriging
mean_sk <- beta + t(m_pred) %*% solve(m_obs, log(rongelap_sf$counts / rongelap_sf$time) - beta)
# 辐射强度预测值
rongelap_grid_df$pred_sk <- exp(mean_sk)
# 辐射强度预测方差
rongelap_grid_df$var_sk <- sigma_sq - diag(t(m_pred) %*% solve(m_obs, m_pred))

4.5 展示结果

将预测结果以散点图的形式呈现到图上,见下 图 4.5 ,由于散点非常多,紧挨在一起就连成片了。上子图是 nlme 包预测的结果,下子图是 spaMM 包预测的结果,前者图像看起来会稍微平滑一些。

朗格拉普岛核辐射强度的分布

图 4.5: 朗格拉普岛核辐射强度的分布

从空间线性混合效应模型到空间广义线性混合效应模型的效果提升不多,差异不太明显。下图 4.6 展示核辐射强度预测方差的分布。越简单的模型,预测值的分布越平滑,越复杂的模型,捕捉到更多局部细节,因而,预测值的分布越曲折。

核辐射强度预测方差的分布

图 4.6: 核辐射强度预测方差的分布

考虑到核辐射在全岛的分布应当是连续性的,空间连续性也是这类模型的假设,接下来绘制热力图,先用 stars [3] 将预测数据按原网格化的精度转化成栅格对象,裁减超出朗格拉普岛海岸线以外的内容。

library(abind)
library(stars)
rongelap_grid_sf <- st_as_sf(rongelap_grid_df, coords = c("cX", "cY"), dim = "XY")
rongelap_grid_stars <- st_rasterize(rongelap_grid_sf, nx = 150, ny = 75)
rongelap_stars <- st_crop(x = rongelap_grid_stars, y = rongelap_coastline_sfp)

除了矢量栅格化函数 st_rasterize() 和栅格剪裁函数 st_crop()stars 包还提供栅格数据图层 geom_stars(),这可以和 ggplot2 内置的图层搭配使用。下图 4.7ggplot2 包和 grid 包一起绘制的辐射强度的热力分布图,展示 spaMM 包的预测效果。图左侧一小一大两个虚线框是放大前后的部分区域,展示朗格拉普岛核辐射强度的局部变化。

朗格拉普岛核辐射强度的分布

图 4.7: 朗格拉普岛核辐射强度的分布

美国当年是在比基尼环礁做的氢弹核试验,试验地与朗格拉普岛相距 100 多英里。核辐射羽流受大气、海洋环流等影响,漂流到朗格拉普岛。又受朗格拉普岛周围水文、地理环境影响,核辐射强度在全岛的分布是不均匀的,图中越亮的地方表示受到的核辐射越严重。

5 模型理论

5.1 广义最小二乘

nlme 包的函数 gls() 的名称 gls 是 Generalized Least Squares 广义最小二乘的意思。顾名思义,广义最小二乘是最小二乘的推广形式。当模型残差不满足独立同分布的条件,存在相关性或异方差,就需要广义最小二乘 (Generalized Least Squares ,简称 GLS)。在前面的 3.3 ,采用广义最小二乘估计 (3.1) 的参数,下面继续介绍其原理。线性模型的一般形式如下:

y=Xβ+ϵy=Xβ+ϵ

其中,yyn×1n×1 的列向量,表示响应变量对应的观测数据。 XXn×pn×p 的矩阵,表示 pp 维协变量对应的 nn 次观测数据。ββp×1p×1 的列向量,表示待估的模型参数。 ϵϵn×1n×1 的列向量,表示残差。

假定随机向量 ϵϵ 的期望为 E{ϵ|X}=0E{ϵ|X}=0,方差为 Var{ϵ|X}=VVar{ϵ|X}=V ,且 XXϵϵ 不相关,则有

E{y|X}=Xβ,Var{y|X}=V.E{y|X}=Xβ,Var{y|X}=V.

现在的目标是找到一个 ββ ,使得残差平方和最小,即求解如下无约束最优化问题。

minβϵϵminβϵϵ(5.1)

ϵ=yXβϵ=yXβ 代入并展开,目标函数可进一步表达为如下形式。

ϵϵ=(yXβ)(yXβ)=yyyXβ(Xβ)y+(Xβ)Xβ=yy2yXβ+βXXβϵϵ=(yXβ)(yXβ)=yyyXβ(Xβ)y+(Xβ)Xβ=yy2yXβ+βXXβ

ββ 求偏导,并令偏导等于 00

2Xy+2XXβ=02Xy+2XXβ=0

可得 ββ 的最小二乘估计 ˆβ^β

ˆβ=(XX)1Xy.^β=(XX)1Xy.

此时,ˆβ^β 的期望 E{ˆβ}=βE{^β}=β ,即 ˆβ^βββ 无偏的估计。ˆβ^β 的方差 Var{ˆβ}Var{^β} 的计算如下:

Var{ˆβ}=E{ˆβˆβ}E{ˆβ}E{ˆβ}=E{[(XX)1Xy](XX)1Xy}ββ=E{[(XX)1X(Xβ+ϵ)](XX)1X(Xβ+ϵ)}ββ=E{[β+(XX)1Xϵ][β+(XX)1Xϵ]}ββ=E{ϵX(XX)1(XX)1Xϵ}=tr[X(XX)1(XX)1XV].Var{^β}=E{^β^β}E{^β}E{^β}=E{[(XX)1Xy](XX)1Xy}ββ=E{[(XX)1X(Xβ+ϵ)](XX)1X(Xβ+ϵ)}ββ=E{[β+(XX)1Xϵ][β+(XX)1Xϵ]}ββ=E{ϵX(XX)1(XX)1Xϵ}=tr[X(XX)1(XX)1XV].

ϵϵ 之间存在相关性时,需要广义最小二乘估计,即

ˆβgls=(XV1X)1XV1y.^βgls=(XV1X)1XV1y.

ϵϵ 之间存在空间相关性时,VV 含有参数 σ2,ϕσ2,ϕ ,若模型带块金效应,则还含有参数 τ2τ2 。可见,上式不足以估计模型的参数,且看后续 5.2

类似地,对于一次新的观测 x0x0,它是一个 p×1p×1 的列向量,现在的目标是找到一个 ˆy0^y0 ,在满足无偏性的条件下,使得预测的均方误差 E{(ˆy0y0)2}E{(^y0y0)2} 最小,也是预测方差 Var{ˆy0y0}Var{^y0y0} 最小,也是残差的方差 Var{ˆϵ0}Var{^ϵ0} 最小。不妨设 ˆy0^y0 是关于 yy 的线性组合,即 ˆy0=wy^y0=wy ,此处,wwn×1n×1 维的权重向量。找 ˆy0^y0 的问题转为求解如下最优化问题。

minwVar{ˆy0y0}s.t.E{ˆy0y0}=0minwVar{^y0y0}s.t.E{^y0y0}=0(5.2)

对于无偏性的约束条件,有

E{ˆy0y0}=E{w(Xβ+ϵ)(x0β+ϵ0)}=wXβx0β=0E{^y0y0}=E{w(Xβ+ϵ)(x0β+ϵ0)}=wXβx0β=0

对于目标函数,有

Var{ˆy0y0}=Var{wyx0βϵ0}=Var{w(Xβ+ϵ)x0βϵ0}=Var{wϵϵ0}=E{(wϵϵ0)2}[E{(wϵϵ0)}]2=E{(wϵϵ0)2}=E{(wϵϵ0)(wϵϵ0)}=wCov{ϵ,ϵ}w2Cov{ϵ0,ϵ}w+Cov{ϵ0,ϵ0}=wV11w2V01w+V00Var{^y0y0}=Var{wyx0βϵ0}=Var{w(Xβ+ϵ)x0βϵ0}=Var{wϵϵ0}=E{(wϵϵ0)2}[E{(wϵϵ0)}]2=E{(wϵϵ0)2}=E{(wϵϵ0)(wϵϵ0)}=wCov{ϵ,ϵ}w2Cov{ϵ0,ϵ}w+Cov{ϵ0,ϵ0}=wV11w2V01w+V00

为方便叙述,作如下简记。

V11=Cov{ϵ,ϵ},V10=Cov{ϵ,ϵ0},V01=Cov{ϵ0,ϵ},V00=Cov{ϵ0,ϵ0}V11=Cov{ϵ,ϵ},V10=Cov{ϵ,ϵ0},V01=Cov{ϵ0,ϵ},V00=Cov{ϵ0,ϵ0}

采用拉格朗日乘数法将约束优化问题 (5.2) 转为如下无约束优化问题

minw,κwV11w2V01w+V00+(x0wX)κminw,κwV11w2V01w+V00+(x0wX)κ

其中,κκp×1p×1 维的拉格朗日乘子向量,对 w,κw,κ 分别求偏导,并令偏导等于 00

2V11w2V10Xκ=0Xwx0=02V11w2V10Xκ=0Xwx0=0

第一个式子左乘 XV111XV111 ,再将第二个式子代入第一个式子。

2Xwx02XV111V10XV111Xκ=02Xwx02XV111V10XV111Xκ=0

可得拉格朗日乘子向量 κκ ,再将 κκ 代入第一个式子,可得权重向量 ww

κ=2(XV111X)1(x0XV111V10)w=V111(V10+X(XV111X)1(x0XV111V10)).κ=2(XV111X)1(x0XV111V10)w=V111(V10+X(XV111X)1(x0XV111V10)).

根据权重向量,可获得预测值 ˆy0^y0 以及预测方差 Var{ˆy0}Var{^y0}

ˆy0=wy=V01V111y+(x0V01V111X)(XV111X)1XV111y=x0(XV111X)1XV111y+V01V111(yX(XV111X)1XV111y)=x0ˆβgls+V01V111(yXˆβgls)^y0=wy=V01V111y+(x0V01V111X)(XV111X)1XV111y=x0(XV111X)1XV111y+V01V111(yX(XV111X)1XV111y)=x0^βgls+V01V111(yX^βgls)

Var{ˆy0}=tr[wwV11]Var{^y0}=tr[wwV11]

广义最小二乘估计参考课程 Stats 253: Analysis of Spatial and Temporal Datalect5

5.2 限制极大似然

nlme 包的函数 gls() 提供极大似然(Maximum Likelihood,简称 ML)和限制极大似然(Restricted Maximum Likelihood,简称 REML)两种方法估计模型参数。

极大似然估计对残差的分布有要求,一般假定 ϵϵ 服从多元正态分布,即 ϵMVN(0,Vθ)ϵMVN(0,Vθ) ,这里 VθVθ 表示协方差阵与参数向量 θθ 有关,θ=(σ2,ϕ,τ2)θ=(σ2,ϕ,τ2) ,各个分量的含义同前。则关于参数 (β,θ)(β,θ) 的似然函数如下:

L(β,θ)=1(2π)n/2(detVθ)1/2exp{12(yXβ)V1θ(yXβ)}L(β,θ)=1(2π)n/2(detVθ)1/2exp{12(yXβ)V1θ(yXβ)}

在前面,已经获得参数 ββ 的广义最小二乘估计 ˆβ(θ)^β(θ)

ˆβ(θ)=(XV1θX)1XV1θy^β(θ)=(XV1θX)1XV1θy

将上式代入似然函数 L(β,θ)L(β,θ) ,意味着消去了参数向量 ββ ,只剩下 θθ

L(θ)=1(2π)n/2(detVθ)1/2exp{12(yXˆβ(θ))V1θ(yXˆβ(θ))}L(θ)=1(2π)n/2(detVθ)1/2exp{12(yX^β(θ))V1θ(yX^β(θ))}

为方便优化计算,进一步对似然函数取对数。

logL(θ)=n2log(2π)12log(detVθ)12(yXˆβ(θ))V1θ(yXˆβ(θ))logL(θ)=n2log(2π)12log(detVθ)12(yX^β(θ))V1θ(yX^β(θ))

现在主要关注上式右侧中包含的二次型,将 ˆβ(θ)^β(θ) 代入。方便计算和书写起见,临时记 A=IX(XV1θX)1XV1θA=IX(XV1θX)1XV1θ ,这里 IInn 维单位矩阵。可得

logL(θ)=n2log(2π)12log(detVθ)12yAV1θAylogL(θ)=n2log(2π)12log(detVθ)12yAV1θAy

为了进一步化简,下面计算 AAA2A2 ,再将它们依次代入上述对数似然函数。

AVθ=VθX(XV1θX)1XA=IV1θ(VθAVθ)=V1θAVθA2=AAVθ=VθX(XV1θX)1XA=IV1θ(VθAVθ)=V1θAVθA2=A

经过上述矩阵运算,logL(θ)logL(θ) 化简为如下形式。

logL(θ)=n2log(2π)12log(detVθ)12yV1θ(IX(XV1θX)1XV1θ)ylogL(θ)=n2log(2π)12log(detVθ)12yV1θ(IX(XV1θX)1XV1θ)y

对数似然函数的形式还是很复杂,极大化这个对数似然函数,还需要两个关键步骤。

  1. 计算似然函数关于 θθ 各个分量的偏导数。
  2. 求解一个非凸优化问题。

考虑到 θθ 的维数不是很高,理论上,可以做暴力网格搜索,但时间花费可能很高,推荐采用一些启发式的全局优化算法。此外,初始值的选取也很重要, ββ 的初值可用最小二乘估计代替,σ2σ2 的初值可用模型残差的方差代替,τ2τ2 的初值可取 σ2σ2 的十分之一,ϕϕ 的初值可取最大距离的十分之一。上述固定一部分参数,估计另一部分参数的过程,叫剖面极大似然(Profile Maximum Likelihood)。不难理解,剖面极大似然估计是个有偏的估计。它将全参数空间剖开,在剖面(超平面)上寻找剩余参数的极大似然估计。

极大似然估计参考课程 Stats 253: Analysis of Spatial and Temporal Datalect4

介绍限制极大似然之前,先回顾一下线性模型的一般形式

y=Xβ+ϵy=Xβ+ϵ

找一个 nn 阶方阵 PP 使得 PXβ=0PXβ=0 ,且 PP 不依赖于 ββ,这样的矩阵 PP 形式如下

P=IX(XX)1XP=IX(XX)1X

不难发现,矩阵 PP 具有性质 P=P,P2=PP=P,P2=P ,即矩阵 PP 是一个投影矩阵。线性模型的一般形式化为

Py=PϵPy=Pϵ

这就是说将整个模型投影到一个新的空间中,在这个新的空间中,模型不含有参数 ββ ,只剩下参数 θθ。然后,极大化似然函数,得到 θθ 的估计 ˆθ^θ ,再将 ˆθ^θ 代入 ββ 的广义最小二乘估计 ^β(θ)^β(θ) ,至此,模型参数全部求解完毕。相比于剖面极大似然估计,限制极大似然估计偏差更小。

logL(θ)=n2log(2π)12log(detVθ)12log(detXV1θX)12(yXˆβ(θ))V1θ(yXˆβ(θ))logL(θ)=n2log(2π)12log(detVθ)12log(detXV1θX)12(yX^β(θ))V1θ(yX^β(θ))

在无偏性约束下,最小均方预测误差意义下,获得最佳线性无偏预测。

minwVar{ˆy0y0}s.t.E{ˆy0y0}=0minwVar{^y0y0}s.t.E{^y0y0}=0

类似前面的广义最小二乘估计一节中的预测过程,可得

ˆy0=x0ˆβ(θ)+V01V111(yXˆβ(θ))^y0=x0^β(θ)+V01V111(yX^β(θ))

形式上一点没变,除了 ˆβ(θ)^β(θ) 中参数 θθ 是上面限制极大似然估计的结果,其它符号的含义同前。

5.3 克里金插值

在空间分析中,克里金插值(Kriging Interpolation)是非常基础且重要的内容,具有很好的统计性质,是最佳线性无偏预测(Best Linear Unbiased Predictor)。下面介绍普通克里金(Ordinary kriging)插值的原理,图 5.1 是示意图。

普通克里金插值

图 5.1: 普通克里金插值

已知研究区域 DR2DR2 中的采样点 xiDxiD 的辐射强度为 λ(xi)λ(xi) 。对于区域 DD 中未采样的位置 x0x0,它的辐射强度 λ(x0)λ(x0) 是多少?在满足无偏性的条件下,ˆλ(x0)^λ(x0) 是使预测方差最小的估计。

ˆλ(x0)=ni=1wiλ(xi)^λ(x0)=ni=1wiλ(xi)

其中 wiwi 是待定的权重系数。ˆλ(x0)^λ(x0)λ(x0)λ(x0) 的无偏估计,要使预测方差最小,需求解如下最优化问题。

minw12Var{ˆλ(x0)λ(x0)}s.t.E{ˆλ(x0)λ(x0)}=0minw12Var{^λ(x0)λ(x0)}s.t.E{^λ(x0)λ(x0)}=0(5.3)

在平稳性的假设下, E{λ(xi)}=E{λ(x0)}E{λ(xi)}=E{λ(x0)}Var{λ(xi)}=σ2Var{λ(xi)}=σ2 。根据无偏性条件可推导出

ni=1wi=1.ni=1wi=1.

λ=[λ(x1),λ(x1),,λ(xn)]λ=[λ(x1),λ(x1),,λ(xn)]VV 表示随机向量 λλ 的协方差矩阵 Var{λ}Var{λ} ,其第 ii 行第 jj 列的元素为 Cov{λ(xi),λ(xj)}Cov{λ(xi),λ(xj)} ,对角线上的元素为方差 Var{λ(xi)},i=1,2,,nVar{λ(xi)},i=1,2,,n 。令 w=(w1,w2,,wn)w=(w1,w2,,wn) ,则

ˆλ(x0)=ni=1wiλ(xi)=wλ.^λ(x0)=ni=1wiλ(xi)=wλ.

根据随机向量二次型,ˆλ(x0)^λ(x0) 的方差 Var{ˆλ(x0)}Var{^λ(x0)}

Var{ˆλ(x0)}=wVar{λ}w=wVw.Var{^λ(x0)}=wVar{λ}w=wVw.

因此,

Var{ˆλ(x0)λ(x0)}=Var{ˆλ(x0)}+Var{λ(x0)}2Cov{ˆλ(x0),λ(x0)}=wVw+σ22ni=1Cov{λ(xi),λ(x0)}wi=wVw+σ22[Cov{λ,λ(x0)}]w=wVw+σ22uw.Var{^λ(x0)λ(x0)}=Var{^λ(x0)}+Var{λ(x0)}2Cov{^λ(x0),λ(x0)}=wVw+σ22ni=1Cov{λ(xi),λ(x0)}wi=wVw+σ22[Cov{λ,λ(x0)}]w=wVw+σ22uw.(5.4)

其中,Var{λ(x0)}=Var{λ(xi)}=σ2Var{λ(x0)}=Var{λ(xi)}=σ2 是未知常数,u=Cov{λ,λ(x0)}u=Cov{λ,λ(x0)} 是未知的 n×1n×1 向量。假设它们已知,采用拉格朗日乘数法将约束优化问题 (5.3) 转为如下无约束优化问题。

minw,κL(w,k)=12wVw+12σ2uw+κ(11w)minw,κL(w,k)=12wVw+12σ2uw+κ(11w)

其中,κκ 表示拉格朗日乘子,11 表示 n×1n×1 维的全 1 向量。分别对 wwκκ 求偏导,并令其分别等于零向量 00 和零 00 ,则有

L(w,κ)w=Vwuκ1=0L(w,k)κ=1w1=0L(w,κ)w=Vwuκ1=0L(w,k)κ=1w1=0

联立上述方程可得方程组,一共 n+1n+1 个变量和方程。

[V110][wκ]=[u0].[V110][wκ]=[u0].

第一个方程左乘 1V11V1 ,再将第二个式子代入,可得

κ=11V1u1V11w=V1(u+11V1u1V111)κ=11V1u1V11w=V1(u+11V1u1V111)

所以,在位置 x0x0 处的预测 ˆλ(x0)^λ(x0)

ˆλ(x0)=wλ=(u+11V1u1V111)V1λ^λ(x0)=wλ=(u+11V1u1V111)V1λ

ww 代入 (5.4) 可得普通克里金插值的最小均方预测误差。

Var{ˆλ(x0)λ(x0)}=uV1u(11V1u)21V11Var{^λ(x0)λ(x0)}=uV1u(11V1u)21V11

根据数据可以估计经验半变差函数 (3.4) 的参数,从而 ββVVσ2σ2uu 都是已知的。以 V+τ2IV+τ2I 替换 VVλβ1λβ1 替换 λλ ,可得普通克里金插值的预测值 ˆλ(x0)^λ(x0) 及其方差 Var{ˆλ(x0)}Var{^λ(x0)} 。相比于普通克里金插值,简单克里金插值中 ββ 是已知的,没有权重之和等于 1 的约束。

参考《Statistics for Spatial Data》[4]

6 拓展阅读

在过去的 20 多年里,朗格拉普岛核辐射数据集在多篇文章中作为案例分析出现,用于算法模型的比较。1998 年 Peter J. Diggle 等首次提出蒙特卡洛极大似然方法估计不带块金效应的响应变量服从泊松分布的空间广义混合效应模型的参数,分析了朗格拉普岛上核辐射强度的空间分布 [5]。2004 年 Ole F Christensen 在 Peter J. Diggle 等人的基础上添加了块金效应,同样使用蒙特卡洛极大似然方法估计了模型中的参数 [6]。由于现有算法表现受真实数据影响比较大,随后,2006 年 Ole F Christensen 等又提出更加稳健的 Langevin-Metropolis 算法,辅以重参数化技巧提升算法性能,可以在马尔可夫链混合和收敛方面独立于数据,并在朗格拉普岛核辐射数据中做了实验,体现出预期效果 [7]。2015 年 Wagner Hugo Bonat 等在朗格拉普岛核辐射数据和蚕豆根腐病数据中比较了 MCMC 算法,MCEM 算法和修正的拉普拉斯近似算法,发现拉普拉斯近似可以提供类似的结果,基于剖面似然可以获得模型参数的置信区间,相比于模拟算法,不需要算法调参和收敛分析 [8]。2016 年 Erlis Ruli 等提出改进的拉普拉斯近似算法,用于边际似然函数,处理高维随机效应的积分,比较了现有的一些基于似然函数的推断方法,体现出渐进误差更小,在朗格拉普岛核辐射强度预测中更加精确 [9]。对算法实现过程感兴趣的读者可以查阅前述参考文献。

2002 年张首次提出蒙特卡洛极大似然算法给出空间广义线性混合效应模型的估计与预测 [10],因混合模型的多样性,参数计算的复杂性,后续学者们分别从贝叶斯和频率方法的视角提出精确和近似的算法。近似算法的想法是找了一个近似函数替换其中的部分或者全部,使得随着迭代次数增加的情况下,估计的参数值可以趋于真值。精确算法的想法是通过模拟计算的方式硬积一个高维积分,不断增加采样的次数逼近目标函数,比如基于 MCMC 及其改进型 HMC 和 NUTS 硬积参数的联合后验分布中的高维积分做参数的全贝叶斯推断。贝叶斯方法主流的有拉普拉斯近似和全贝叶斯推断,频率方法主流的有基于似然的拉普拉斯近似和自适应高斯 - 埃尔米特算法。R 语言社区的 spaMM [11]INLA [12, 13]glmmfields [14]glmmTMB [15]、sdmTMB [16]hglm 包 [17] 都可以用来拟合模型。

  • spaMM 包采用拉普拉斯近似算法拟合空间广义线性混合效应模型,兼容 lme4 包的公式语法,提供统一的使用方式,还可以与 INLA 包集成。
  • INLA 包采用随机偏微分方程方法将目标区域划分成三角网格,以拉普拉斯集成嵌套计算方法逼近参数的后验分布 [18]。预测精度和速度主要由网格的细密程度决定,对于大规模空间数据集,比如数以千计的采样点,可以将网格划分得稀疏一些,总是可以计算。内部采用了并行迭代和英特尔 MKL 矩阵优化工具库。
  • glmmfields 包以多元 t 分布替代多元正态分布表示高斯马尔可夫随机场拟合带极端事件的时空模型,所以它不局限于本文涉及的空间模型。glmmfields 包内建的空间和时空模型是基于 Stan 的,因此,采用全贝叶斯精确推断方式,一般以 NUTS 采样的方式获取参数后验分布,主要算法是汉密尔顿蒙特卡洛 HMC, 对自动微分变分推断方式有试验性支持。
  • sdmTMB 包与 glmmTMB 包源自一脉,内部的计算框架都来自 TMB,相比而言,支持的模型更多,特别是生态学领域的空间和时空模型。
  • hglm 包对于具有分层结构的混合效应模型,提出 H-Likelihood 方法拟合分层广义线性模型、空间条件自回归模型 [19]

7 参考文献

[1]
Christensen, O. F. and Ribeiro Jr., P. J. (2002). geoRglm: A package for generalised linear spatial models. R News 2 26–8.
[2]
Pebesma, E. (2018). Simple features for r: Standardized support for spatial vector data. The R Journal 10 439–46.
[3]
[4]
Cressiee, N. A. C. (1993). Statistics for spatial data. John Wiley & Sons, Inc.
[5]
Diggle, P. J., Tawn, J. A. and Moyeed, R. A. (1998). Model-based geostatistics. Journal of the Royal Statistical Society: Series C (Applied Statistics) 47 299–350.
[6]
Christensen, O. F. (2004). Monte carlo maximum likelihood in model-based geostatistics. Journal of Computational and Graphical Statistics 13 702–18.
[7]
Christensen, O. F., Roberts, G. O. and Sköld, M. (2006). Robust markov chain monte carlo methods for spatial generalized linear mixed models. Journal of Computational and Graphical Statistics 15 1–17.
[8]
Bonat, W. H. and Jr, P. J. R. (2015). Practical likelihood analysis for spatial generalized linear mixed models. Electronic Journal of Statistics 10 3986–4009.
[9]
Ruli, E., Sartori, N. and Ventura, L. (2016). Improved laplace approximation for marginal likelihoods. Electronic Journal of Statistics 10 3986–4009.
[10]
Zhang, H. (2002). On estimation and prediction for spatial generalized linear mixed models. Biometrics 58 129–36.
[11]
Rousset, F. and Ferdy, J.-B. (2014). Testing environmental and genetic effects in the presence of spatial autocorrelation. Ecography 37 781–90.
[12]
Rue, H., Martino, S. and Chopin, N. (2009). Approximate Bayesian inference for latent Gaussian models using integrated nested Laplace approximations (with discussion). Journal of the Royal Statistical Society, Series B 71 319–92.
[13]
Lindgren, F. and Rue, H. (2015). Bayesian spatial modelling with R-INLA. Journal of Statistical Software 63 1–25.
[14]
[15]
Brooks, M. E., Kristensen, K., van Benthem, K. J., Magnusson, A., Berg, C. W., Nielsen, A., Skaug, H. J., Maechler, M. and Bolker, B. M. (2017). glmmTMB balances speed and flexibility among packages for zero-inflated generalized linear mixed modeling. The R Journal 9 378–400.
[16]
Anderson, C., S., Ward, J., E., English, A., P., Barnett and K., L. A. (2022). sdmTMB: An r package for fast, flexible, and user-friendly generalized linear mixed effects models with spatial and spatiotemporal random fields. bioRxiv 2022.03.24.485545.
[17]
Ronnegard, L., Shen, X. and Alam, M. (2010). hglm: A package for fitting hierarchical generalized linear models. The R Journal 2 20–8.
[18]
Gómez-Rubio, V. and Rue, H. (2018). Markov chain monte carlo with the integrated nested laplace approximation. Statistics and Computing 28 1033–51.
[19]
Alam, M., Ronnegard, L. and Shen, X. (2015). Fitting conditional and simultaneous autoregressive spatial models in hglm. The R Journal 7 5–18.