diff --git a/R/undirected_dcsbm.R b/R/undirected_dcsbm.R index cc5f334..8660aa7 100644 --- a/R/undirected_dcsbm.R +++ b/R/undirected_dcsbm.R @@ -126,7 +126,7 @@ validate_undirected_dcsbm <- function(x) { #' @param force_identifiability Logical indicating whether or not to #' normalize `theta` such that it sums to one within each block. Defaults #' to `FALSE`, since this behavior can be surprise when `theta` is set -#' to a vector of all ones to recover the DC-SBM case. +#' to a vector of all ones to recover the SBM case. #' #' @inheritDotParams undirected_factor_model expected_degree expected_density #' @inheritParams undirected_factor_model diff --git a/man/chung_lu.Rd b/man/chung_lu.Rd index 8b556bf..50c97f7 100644 --- a/man/chung_lu.Rd +++ b/man/chung_lu.Rd @@ -67,7 +67,7 @@ self-loops, and these are then removed after the fact.} \item{force_identifiability}{Logical indicating whether or not to normalize \code{theta} such that it sums to one within each block. Defaults to \code{FALSE}, since this behavior can be surprise when \code{theta} is set -to a vector of all ones to recover the DC-SBM case.} +to a vector of all ones to recover the SBM case.} } \value{ An \code{undirected_chung_lu} S3 object, a subclass of \code{\link[=dcsbm]{dcsbm()}}. diff --git a/man/dcsbm.Rd b/man/dcsbm.Rd index a008418..98d080f 100644 --- a/man/dcsbm.Rd +++ b/man/dcsbm.Rd @@ -80,7 +80,7 @@ of the \code{B} matrix are permuted to match the new order of \code{pi}.} \item{force_identifiability}{Logical indicating whether or not to normalize \code{theta} such that it sums to one within each block. Defaults to \code{FALSE}, since this behavior can be surprise when \code{theta} is set -to a vector of all ones to recover the DC-SBM case.} +to a vector of all ones to recover the SBM case.} \item{poisson_edges}{Logical indicating whether or not multiple edges are allowed to form between a pair of diff --git a/man/expected_edges.Rd b/man/expected_edges.Rd index 7056062..678cd56 100644 --- a/man/expected_edges.Rd +++ b/man/expected_edges.Rd @@ -49,7 +49,7 @@ pop <- n / 2 a <- .1 b <- .05 -B <- matrix(c(a,b,b,a), nrow = 2) +B <- matrix(c(a, b, b, a), nrow = 2) b_model <- fastRG::sbm(n = n, k = 2, B = B, poisson_edges = FALSE) @@ -60,7 +60,7 @@ A <- sample_sparse(b_model) # compare mean(rowSums(triu(A))) -pop * a + pop * b # analytical average degree +pop * a + pop * b # analytical average degree ##### more generic examples