Nothing
`ojaSCM` <-
function(X, center= "ojaMedian", p = NULL, silent = FALSE, na.action = na.fail, ...){
OjaSigns <- ojaSign(X, x = NULL, center = center, p = p, silent = silent, na.action = na.fail, ...)
SCM <- crossprod(OjaSigns)/nrow(OjaSigns)
dimnames(SCM) <- NULL
rownames(SCM) <- colnames(X)
colnames(SCM) <- colnames(X)
return(SCM)
}
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.