From 168f58899eaeea0a65b97ddf697380e33d2a547c Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <waldir.leoncio@gmail.com>
Date: Wed, 15 Jan 2020 13:20:23 +0100
Subject: [PATCH] Fixed relative domination case

---
 R/times.R | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/R/times.R b/R/times.R
index b270331..c887d3d 100644
--- a/R/times.R
+++ b/R/times.R
@@ -18,11 +18,24 @@ times <- function(a, b) {
         }  else if (all(dim(b) >= dim(a))) {
             dominant_mx <- b
             dominated_mx <- a
+        } else {
+            dominant_mx <- "neither"
+            dominant_dim <- c(max(nrow(b), nrow(a)), max(ncol(b), ncol(a)))
         }
     }
 
     if (is.null(dominant_mx)) {
-        return(a * b)
+        out <- a * b
+    } else if (dominant_mx == "neither") {
+        a <- repmat(
+            mx = a,
+            n = c(dominant_dim[1] - nrow(a) + 1, dominant_dim[2] - ncol(a) + 1)
+        )
+        b <- repmat(
+            mx = b,
+            n = c(dominant_dim[1] - nrow(b) + 1, dominant_dim[2] - ncol(b) + 1)
+        )
+        out <- a * b
     } else {
         # Expanding dominated matrix
         dominated_mx <- repmat(
@@ -32,6 +45,7 @@ times <- function(a, b) {
                 ncol(dominant_mx) - ncol(dominated_mx) + 1
             )
         )
-        return(dominant_mx * dominated_mx)
+        out <- dominant_mx * dominated_mx
     }
+    return(out)
 }
\ No newline at end of file