This example demonstrates how to use bgms for Bayesian analysis of
binary or ordinal data using a Markov Random Field (MRF) model. To learn
more about the MRF model, check out Marsman &
Haslbeck (2023),
and to learn more about the Bayesian analysis of network models, check
out Huth et al. (2023). A paper on the
bgms
software is coming soon.
We’ll examine real data on PTSD symptoms from 362 Chinese adults who survived the Wenchuan earthquake but tragically lost a child (McNally et al., 2015). The data comes from a 17-question survey where participants rated how much each symptom bothered them in the past month on a scale from “not at all” to “extremely.”
A comprehensive Bayesian analysis of the data considers both the
network structure and its corresponding parameters. As numerous
structures could underlie our network, we employ simulation-based
methods to investigate the posterior distribution of network structures
and parameters (Marsman & Haslbeck,
2023). The bgm
function performs this task,
iteratively simulating values from the posterior distribution of network
structures and parameters.
bgm(x,
variable_type = "ordinal",
reference_category,
iter = 1e4,
burnin = 1e3,
interaction_scale = 2.5,
threshold_alpha = 0.5,
threshold_beta = 0.5,
edge_selection = TRUE,
edge_prior = c("Bernoulli", "Beta-Bernoulli"),
inclusion_probability = 0.5,
beta_bernoulli_alpha = 1,
beta_bernoulli_beta = 1,
na.action = c("listwise", "impute"),
save = FALSE,
display_progress = TRUE
)
x
: A data frame or matrix with n
rows
and p
columns, containing binary and ordinal variables for
n
independent observations and p
variables in
the network. Regular binary and ordinal variables are recoded as
non-negative integers (0, 1, …, m) if not already done. Unobserved
categories are collapsed into other categories after recoding (i.e., if
category 1 is unobserved, the data will be recoded from (0, 2) to (0,
1)). Blume-Capel ordinal variables are also coded as non-negative
integers if not already done. However, since ``distance’’ to the
reference category plays an important role in this model, unobserved
categories are not collapsed after recoding.
variable_type
: What kind of variables are there in
x
? Can be a single character string specifying the variable
type of all p
variables at once or a vector of character
strings of length p
specifying the type for each variable
in x
separately. Currently, bgm supports “ordinal” and
“blume-capel”. Binary variables are automatically treated as “ordinal”.
Defaults to variable_type = "ordinal"
.
reference_category
: The reference category in the
Blume-Capel model. Should be an integer within the range of integer
scores observed for the “blume-capel” variable. Can be a single number
specifying the reference category for all Blume-Capel variables at once,
or a vector of length p
where the i
-th element
contains the reference category for variable i
if it is
Blume-Capel, and bgm ignores its elements for other variable types. The
value of the reference category is also recoded when bgm recodes the
corresponding observations. Only required if there is at least one
variable of type “blume-capel”.
iter
: How many iterations should the Gibbs sampler
run? The default of 1e4
is for illustrative purposes. For
stable estimates, it is recommended to run the Gibbs sampler for at
least 1e5
iterations.
burnin
: The number of iterations of the Gibbs
sampler before its output is saved. Since it may take some time for the
Gibbs sampler to converge to the posterior distribution, it is
recommended not to set this number too low.
interaction_scale
: The scale of the Cauchy
distribution that is used as prior for the pairwise interaction
parameters. Defaults to 2.5
.
threshold_alpha, threshold_beta
: The shape
parameters of the beta-prime prior density for the threshold parameters.
Must be positive values. If the two values are equal, the prior density
is symmetric about zero. If threshold_beta
is greater than
threshold_alpha
, the distribution is skewed to the left,
and if threshold_beta
is less than
threshold_alpha
, it is skewed to the right. Smaller values
tend to lead to more diffuse prior distributions.
edge_selection
: Should the function perform Bayesian
edge selection on the edges of the MRF in addition to estimating its
parameters (edge_selection = TRUE
), or should it just
estimate the parameters (edge_selection = FALSE
)? The
default is edge_selection = TRUE
.
edge_prior
: The prior distribution for the edges or
structure of the network. Two prior distributions are currently
implemented: The Bernoulli model edge_prior = "Bernoulli"
assumes that the probability that an edge between two variables is
included is equal to inclusion_probability
and independent
of other edges or variables. When
inclusion_probability = 0.5
, this implies that each network
structure receives the same prior weight. The Beta-Bernoulli model
edge_prior = "Beta-Bernoulli"
assumes a beta prior for the
unknown inclusion probability with shape parameters
beta_bernoulli_alpha
and beta_bernoulli_beta
.
If beta_bernoulli_alpha = 1
and
beta_bernoulli_beta = 1
, this means that networks with the
same complexity (number of edges) receive the same prior weight.
Defaults to `edge_prior = “Bernoulli”’.
inclusion_probability
: The prior edge inclusion
probability for the Bernoulli model. Can be a single probability, or a
matrix of p
rows and p
columns specifying an
inclusion probability for each edge pair. Defaults to
inclusion_probability = 0.5
.
beta_bernoulli_alpha, beta_bernoulli_beta
: The two
shape parameters of the Beta prior density for the Bernoulli inclusion
probability. Must be positive numbers. Defaults to
beta_bernoulli_alpha = 1
and
beta_bernoulli_beta = 1
.
na.action
: How do you want the function to handle
missing data? If na.action = "listwise"
, listwise deletion
is used. If na.action = "impute"
, missing data are imputed
iteratively during the MCMC procedure. Since imputation of missing data
can have a negative impact on the convergence speed of the MCMC
procedure, it is recommended to run the MCMC for more iterations. Also,
since the numerical routines that search for the mode of the posterior
do not have an imputation option, the bgm function will automatically
switch to interaction_prior = "Cauchy"
and
adaptive = TRUE
.
save
: Should the function collect and return all
samples from the Gibbs sampler (save = TRUE
)? Or should it
only return the (model-averaged) posterior means
(save = FALSE
)? Defaults to FALSE.
display_progress
: Should the function show a
progress bar (display_progress = TRUE
)? Or not
(display_progress = FALSE
)? Defaults to TRUE.
If save = FALSE
(the default), the result is a list
containing the following matrices:
gamma
: A matrix with p
rows and
p
columns, containing posterior inclusion probabilities of
individual edges.interactions
: A matrix with p
rows and
p
columns, containing model-averaged posterior means of the
pairwise associations.thresholds
: A matrix with p
rows and
max(m)
columns, containing model-averaged category
thresholds.If save = TRUE
, the result is a list containing:
samples.gamma
: A matrix with iter
rows and
p * (p - 1) / 2
columns, containing the edge inclusion
indicators from every iteration of the Gibbs sampler.samples.interactions
: A matrix with iter
rows and p * (p - 1) / 2
columns, containing parameter
states from every iteration of the Gibbs sampler for the pairwise
associations.samples.thresholds
: A matrix with iter
rows and sum(m)
columns, containing parameter states from
every iteration of the Gibbs sampler for the category thresholds.Column averages of these matrices provide the model-averaged posterior means.
To save time, we ran the algorithm using the default number of iterations, which is 10,000. However, this is probably not enough to fully explore the posterior distribution of the network structures and parameters. To obtain reliable and accurate estimates, we recommend increasing the number of iterations to 100,000 or more. The function employs a simulation method that averages over all plausible network structures to estimate the posterior inclusion probability, which represents the probability that a network containing the edge in question generated the observed data. Let’s plot the relation between interaction estimates and inclusion probabilities.
par(mar = c(6, 5, 1, 1))
plot(x = fit$interactions[lower.tri(fit$interactions)],
y = fit$gamma[lower.tri(fit$gamma)], ylim = c(0, 1),
xlab = "", ylab = "", axes = FALSE, pch = 21, bg = "gray", cex = 1.3)
abline(h = 0, lty = 2, col = "gray")
abline(h = 1, lty = 2, col = "gray")
abline(h = .5, lty = 2, col = "gray")
mtext("Posterior mean edge weight", side = 1, line = 3, cex = 1.7)
mtext("Posterior inclusion probability", side = 2, line = 3, cex = 1.7)
axis(1)
axis(2, las = 1)
We see that estimated edge weights (interactions) near zero have low
inclusion probabilities, and that edge weights far from zero have high
inclusion probabilities. A zero inclusion probability corresponds to
bgm
setting the edge weight to exactly zero.
Using the posterior inclusion probabilities, we can also identify the
median probability network. In this network, we include all edges with a
posterior inclusion probability greater than 0.5
. We can
create the median probability model as follows.
library(qgraph) #For plotting the estimated network
posterior.inclusion <- fit$gamma[lower.tri(fit$gamma)]
tmp <- fit$interactions[lower.tri(fit$interactions)]
tmp[posterior.inclusion < 0.5] = 0
median.prob.model <- matrix(0, nrow = ncol(Wenchuan), ncol = ncol(Wenchuan))
median.prob.model[lower.tri(median.prob.model)] <- tmp
median.prob.model <- median.prob.model + t(median.prob.model)
rownames(median.prob.model) <- colnames(Wenchuan)
colnames(median.prob.model) <- colnames(Wenchuan)
qgraph(median.prob.model,
theme = "TeamFortress",
maximum = .5,
fade = FALSE,
color = c("#f0ae0e"), vsize = 10, repulsion = .9,
label.cex = 1.1, label.scale = "FALSE",
labels = colnames(Wenchuan))
One of the benefits of using a fully Bayesian approach is that it allows us to calculate the inclusion Bayes factor Huth et al. (2023). The inclusion Bayes factor represents the relative evidence for including or excluding a connection between a pair of nodes in the network. An inclusion Bayes factor of 10 suggests that the observed data is ten times more likely to have come from a network that includes the relationship. Conversely, an inclusion Bayes factor of 1/10 implies that the observed data is ten times more likely to have come from a network that excludes the relationship. It’s important to note that inclusion Bayes factors can also reveal limited support for either hypothesis.
In the current version analysis, it is assumed that the prior
inclusion probabilities are equal to 0.5
. Users can change
this by either adapting inclusion_probability
or to choose
edge_prior = "Beta-Bernoulli"
and pick different values for
beta_bernoulli_alpha
and beta_bernoulli_beta
.
Since here the inclusion probability is 0.5
, the prior odds
for inclusion vs exclusion is one. To calculate the inclusion Bayes
factors, we can thus simply convert the estimated posterior inclusion
probabilities. For easier visualization, it is common to use the natural
logarithm of the Bayes factor when plotting.
# Calculate the inclusion BFs
prior.odds = 1
posterior.inclusion = fit$gamma[lower.tri(fit$gamma)]
posterior.odds = posterior.inclusion / (1 - posterior.inclusion)
log.bayesfactor = log(posterior.odds / prior.odds)
#The next line is used to truncate the extreme values of the Bayes factor in the plot
log.bayesfactor[log.bayesfactor > 5] = 5
Lets plot the relation between the estimated edge weights and the inclusion Bayes factor.
par(mar = c(5, 5, 1, 1) + 0.1)
plot(fit$interactions[lower.tri(fit$interactions)], log.bayesfactor, pch = 21, bg = "#bfbfbf",
cex = 1.3, axes = FALSE, xlab = "", ylab = "", ylim = c(-5, 5.5),
xlim = c(-0.5, 1.5))
axis(1)
axis(2, las = 1)
abline(h = log(1/10), lwd = 2, col = "#bfbfbf")
abline(h = log(10), lwd = 2, col = "#bfbfbf")
text(x = 1, y = log(1 / 10), labels = "Evidence for exclusion", pos = 1,
cex = 1.7)
text(x = 1, y = log(10), labels = "Evidence for inclusion", pos = 3, cex = 1.7)
text(x = 1, y = 0, labels = "Weak evidence", cex = 1.7)
mtext("Log-inclusion Bayes factor", side = 2, line = 3, cex = 1.5, las = 0)
mtext("Posterior mean edge weights ", side = 1, line = 3.7, cex = 1.5, las = 0)
In this example, we use a cut-off value of 10
for the
inclusion Bayes factors. Values greater than 10
suggest
evidence for edge inclusion, values less than 1/10
indicate
evidence for edge exclusion, and values between 1/10
and
10
are considered to represent weak evidence.
For most purposes, the default output from bgm
is
sufficient, providing us with the posterior means of edge indicators and
parameters. However, in some cases, we may want to use the raw samples
from the joint posterior distribution. This could be to estimate the
posterior distribution of a specific parameter, assess how many network
structures fit the given data, or create Bayes factors for hypotheses
involving multiple edges. We can obtain the raw samples by setting
save = TRUE
.
We can employ the following code to use the posterior samples for plotting the posterior density of a single edge:
den = density(fit$interactions[,1], bw = "SJ")
i = which.min(abs(den$x - mean(fit$interactions[,1])))[1]
x = den$x[i]
f = den$y[i]
par(cex.main = 1.5, mar = c(5, 6, 1, 1) + 0.1, mgp = c(3.5, 1, 0), cex.lab = 1.5, font.lab = 2, cex.axis = 1.3, bty = "n", las = 1)
plot(den, axes = FALSE, xlab="", ylab="", main = "", frame.plot = FALSE)
axis(1)
axis(2)
par(las = 0)
mtext(text = "Edge weight", side = 1, line = 2.5, cex = 1.5)
mtext(text = "Posterior density", side = 2, line = 2.5, cex = 1.5)
# Add a point to indicate the posterior mean
points(x, f, pch = 21, bg = "grey", cex = 1.7)
The posterior distribution of the edge weight is averaged across all structures, which can lead to greater dispersion compared to estimating it for a specific model. This is because it takes into account the uncertainty of the network structures and the parameter estimates associated with these structures.
Note that the estimate is not very smooth. This is because we only used 10,000 samples to estimate the posterior distribution.
We can also use the raw samples to count the number of unique
structures bgm
encountered in 10,000 iterations.
There are clearly many different network structures that could fit the data. Let’s estimate their posterior probabilities.
Ps = vector(length = nrow(S))
for(r in 1:nrow(S)) {
s = S[r, ]
tmp = G %*% s
Ps[r] = sum(tmp == ncol(G))
}
Ps = Ps / nrow(G) * 100
max(Ps)
The most plausible model accounts for less than 1
percent of the posterior probability. In conclusion, we have significant
uncertainty about the network structure that generated the data.
In the analysis by Marsman & Haslbeck (2023), it is
demonstrated that even when there is uncertainty about the network
structure that generated the data, inclusion Bayes factors are highly
robust. They can help identify substructures of the network in which we
have strong confidence. However, to perform these analyses, we need to
run bgm
for many more iterations. In their analysis, Marsman & Haslbeck (2023) used 1,000,000
iterations. For further details, interested readers can refer to their
analysis script here.