## File Name: slca_set_seed.R
## File Version: 0.03
slca_set_seed <- function(seed)
{
seed.used <- NULL
if ( ! is.null(seed) ){
seed.used <- seed
set.seed( seed=seed.used )
}
#--- output
res <- list( seed.used=seed.used )
return(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.