R/box_product_spam.R

Defines functions not_sparse_box_product

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)}

Try the smnet package in your browser

Any scripts or data that you put into this service are public.

smnet documentation built on Nov. 9, 2020, 9:06 a.m.