#methods for np=============================
np <- function(object) {UseMethod("np")}
np.matrix <-function(object){
return(NCOL(object))
}
np.Pmat <- function(object){
return(attr(object,which = "np"))
}
np.list <- function(object){
return(sapply(object,function(x){np(x)}))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.