change seed function from `seed()` to a local temporary seed

[l-ramirez-lopez]

functions using seed()affect the RNG of users code. An option si to use a sort of local seed and and resets it afterwards (as in withr::with_seed)