Get seed used to fit a model

Usage

get_seed(fit = NULL)

Arguments

fit: A fitted model

Value

A number

Examples

if (FALSE) { # interactive()
data(web)
dt <- prepare_data(mat = web, sampl.eff = rep(20, nrow(web)))
fit <- fit_model(dt, refresh = 0)
get_seed(fit)
}