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)}
alastairrushworth/smnet documentation built on Nov. 13, 2020, 10:27 p.m.