R/get_seed.R
get_seed.Rd
Get seed used to fit a model
get_seed(fit = NULL)
A fitted model
A number
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) }