Nothing
lower.triangle <- function( x )
{
###
### this function returns the lower triangular matrix portion of matrix x
###
### Parameters
### x = a numeric matrix
###
if ( !is.square.matrix( x ) )
stop( "argument x is not a square numeric matrix" )
y <- x
y[row(x) < col(y)] <- 0
return( y )
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.