Nothing
`odiag` <-
function(A,at=0){
if (is.matrix(A)) {
y <- A[row(A) == col(A)-at]
return(y)
}
else{
len <- length(A)
B <- matrix(0,nrow=len+abs(at), ncol=len+abs(at))
B[row(B)==col(B)-at] <- A
return(B)
}
}
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.