get_stat(): hard-coded seed

[fweber144]

get_stat() has a hard-coded seed:

projpred/R/summary_funs.R

Lines 136 to 138 in 22c61cf

	get_stat <- function(mu, lppd, d_test, family, stat, mu.bs = NULL,
	lppd.bs = NULL, weights = NULL, alpha = 0.1,
	seed = 1208499, B = 2000) {

To my knowledge, such a default is bad practice and should be replaced by seed = NULL. The user has then the responsibility to ensure reproducible results by setting the seed to a specific value.

[fweber144]

Fixed in develop, so a corresponding label may be added here.