## File Name: sirt_define_vector.R
## File Version: 0.01
sirt_define_vector <- function( value, names)
{
NN <- length(names)
res <- rep(value, NN)
names(res) <- names
return(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.