SBMSplitMerge (version 1.1.1)

sampler.conj: Conjugate model sampler

Description

Conjugate model sampler

Usage

sampler.conj(currsbm, edges, sbmmod, sigma = NULL, ...)

Arguments

currsbm

the current state of the sampler

edges

an edges object

sbmmod

an sbmmod model

sigma

unused

...

additional arguments for sbmmod$marglike

Value

next state of currsbm object

Examples

# NOT RUN {
model <- sbmmod(crp(3), param_beta(1,1,1,1), edges_bern(), marglike=marglike_bern)
trueSBM <- model$r(100)
Edges <- redges(trueSBM, model$edge)
out <- sampler(Edges, model, 10, "conjugate")
# }