Nothing
not_sparse_box_product<-function(A, B){
unit.vec.B <- matrix(1, nrow = 1, ncol = ncol(B))
unit.vec.A <- matrix(1, nrow = 1, ncol = ncol(A))
(A %x% unit.vec.B) * (unit.vec.A %x% 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.