## File Name: tam_matrix2.R
## File Version: 0.04
tam_matrix2 <- function(x, nrow=NULL, ncol=NULL)
{
if ( is.null(ncol) ){
ncol <- length(x)
}
if ( is.null(nrow) ){
nrow <- 1
}
y <- matrix(x, nrow=nrow, ncol=ncol, byrow=TRUE)
return(y)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.