## File Name: diag2.R
## File Version: 0.04
diag2 <- function( vec)
{
if ( length(vec) > 1){
res <- diag(vec)
} else {
res <- matrix(vec, nrow=1,ncol=1)
}
return(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.