Nothing
if(packageVersion("distrMod")<"2.5"){
.isUnitMatrix <- function(m){
### checks whether m is unit matrix
m.row <- nrow(m)
isTRUE(all.equal(m, diag(m.row), check.attributes = FALSE))
}
.deleteDim <- function(x){
attribs <- attributes(x)
attribs$dim <- NULL
attribs$dimnames <- NULL
attributes(x) <- attribs
x
}
}
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.