Nothing
strictDirection <- function(X, lambda = 1){
S <- as.matrix(X)
S[abs(S) < abs(t(S))] <- 0
O <- (((1-lambda) * X) + (lambda * S))
O <- Matrix::Matrix(O)
return(O)
}
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.