summary.JANE | R Documentation |
S3 summary method for object of class "JANE
".
## S3 method for class 'JANE'
summary(object, true_labels = NULL, initial_values = FALSE, ...)
object |
An object of S3 |
true_labels |
(optional) A numeric, character, or factor vector of known true cluster labels. Must have the same length as number of actors in the fitted network. Need to account for potential isolates removed (default is |
initial_values |
A logical; if |
... |
Unused. |
A list of S3 class
"summary.JANE
" containing the following components (Note: N
is the number of actors in the network, K
is the number of clusters, and D
is the dimension of the latent space):
coefficients |
A list containing the estimated coefficients from the logistic regression model (i.e., 'beta_LR') and, if relevant, the estimated coefficients from the zero- truncated Poisson or log-normal GLM (i.e., 'beta_GLM'). |
U |
A numeric |
p |
A numeric vector of length |
mus |
A numeric |
omegas |
A numeric |
Z_U |
A numeric |
uncertainty |
A numeric vector of length |
cluster_labels |
A numeric vector of length |
Z_W |
A numeric |
q_prob |
A numeric scalar representing the estimated proportion of non-edges in the "true" unobserved network that were converted to noise edges. |
precision_weights |
A numeric scalar representing the estimated precision (on the log scale) of the log-normal weight distribution. Only relevant for |
precision_noise_weights |
A numeric scalar representing the estimated precision (on the log scale) of the log-normal noise weight distribution. Only relevant for |
IC |
Information criteria values of the optimal fit selected, including
|
input_params |
A list with the following components:
|
clustering_performance |
(only if
|
# Simulate network
mus <- matrix(c(-1,-1,1,-1,1,1),
nrow = 3,
ncol = 2,
byrow = TRUE)
omegas <- array(c(diag(rep(7,2)),
diag(rep(7,2)),
diag(rep(7,2))),
dim = c(2,2,3))
p <- rep(1/3, 3)
beta0 <- 1.0
sim_data <- JANE::sim_A(N = 100L,
model = "NDH",
mus = mus,
omegas = omegas,
p = p,
params_LR = list(beta0 = beta0),
remove_isolates = TRUE)
# Run JANE on simulated data
res <- JANE::JANE(A = sim_data$A,
D = 2L,
K = 3L,
initialization = "GNN",
model = "NDH",
case_control = FALSE,
DA_type = "none")
# Summarize fit
summary(res)
# Summarize fit and compare to true cluster labels
summary(res, true_labels = apply(sim_data$Z_U, 1, which.max))
# Summarize fit using starting values of EM algorithm
summary(res, initial_values = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.