#
# Renjin : JVM-based interpreter for the R language for the statistical analysis
# Copyright Â© 2010-2019 BeDataDriven Groep B.V. and contributors
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, a copy is available at
# https://www.gnu.org/licenses/gpl-2.0.txt
#

# Generated by gen-matrix-ops.R using GNU R version 3.4.0 (2017-04-21)
library(hamcrest)
matprod <- function(x, y) x %*% y
test.matprod.1 <- function() assertThat(matprod(1:3, 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.2 <- function() assertThat(matprod(1:3, structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.3 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.4 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.5 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.6 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.7 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.8 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.9 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.10 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.11 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.12 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.13 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.14 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.15 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.16 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.17 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.18 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), throwsError())
test.matprod.19 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.20 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.21 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.22 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.23 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), 1:3), throwsError())
test.matprod.24 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.25 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.26 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.27 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.28 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.29 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.30 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.31 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.32 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.33 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.34 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), 1:3), throwsError())
test.matprod.35 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.36 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.37 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.38 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.39 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.40 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.41 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.42 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.43 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.44 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.45 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.46 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.47 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.48 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.49 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.50 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.51 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.52 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.53 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.54 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.55 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.56 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), 1:3), throwsError())
test.matprod.57 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.58 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.59 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.60 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.61 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L))))
test.matprod.62 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(NULL, c("c1", "c2")))))
test.matprod.63 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(NULL, y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.64 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.65 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.66 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.67 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), 1:3), throwsError())
test.matprod.68 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.69 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.70 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.71 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.72 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), NULL))))
test.matprod.73 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))))
test.matprod.74 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(c("r1", "r2"), y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.75 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.76 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.77 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.78 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.79 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.80 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.81 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.82 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.83 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), NULL), .Names = c("x", "")))))
test.matprod.84 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), c("c1", "c2")), .Names = c("x", "")))))
test.matprod.85 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))))
test.matprod.86 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.87 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.88 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.89 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.90 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.91 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.92 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.93 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.94 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.95 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.96 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.97 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.98 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.99 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.100 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.101 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.102 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.103 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.104 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.105 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.106 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.107 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.108 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.109 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), throwsError())
test.matprod.110 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.111 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.112 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.113 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.114 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b",     "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.115 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a",     "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"    )))), throwsError())
test.matprod.116 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.117 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(        c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.118 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(        x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x",     "y")))), throwsError())
test.matprod.119 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.120 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a",     "b", "c"), NULL))), throwsError())
test.matprod.121 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(        x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.122 <- function() assertThat(matprod(1:3, 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.123 <- function() assertThat(matprod(1:3, structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.124 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.125 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.126 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.127 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.128 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.129 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.130 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.131 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.132 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.133 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.134 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.135 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.136 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.137 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.138 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.139 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), throwsError())
test.matprod.140 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.141 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.142 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.143 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.144 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), 1:3), throwsError())
test.matprod.145 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.146 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.147 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.148 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.149 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.150 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.151 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.152 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.153 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.154 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.155 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), 1:3), throwsError())
test.matprod.156 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.157 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.158 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.159 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.160 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.161 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.162 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.163 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.164 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.165 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.166 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.167 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.168 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.169 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.170 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.171 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.172 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.173 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.174 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.175 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.176 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.177 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), 1:3), throwsError())
test.matprod.178 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.179 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.180 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.181 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.182 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L))))
test.matprod.183 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(NULL, c("c1", "c2")))))
test.matprod.184 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(NULL, y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.185 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.186 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.187 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.188 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), 1:3), throwsError())
test.matprod.189 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.190 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.191 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.192 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.193 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), NULL))))
test.matprod.194 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))))
test.matprod.195 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(c("r1", "r2"), y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.196 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.197 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.198 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.199 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.200 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.201 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.202 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.203 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.204 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), NULL), .Names = c("x", "")))))
test.matprod.205 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), c("c1", "c2")), .Names = c("x", "")))))
test.matprod.206 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))))
test.matprod.207 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.208 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.209 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.210 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.211 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.212 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.213 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.214 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.215 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.216 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.217 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.218 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.219 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.220 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.221 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.222 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.223 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.224 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.225 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.226 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.227 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.228 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.229 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.230 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), throwsError())
test.matprod.231 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.232 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.233 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.234 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.235 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b",     "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.236 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a",     "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"    )))), throwsError())
test.matprod.237 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.238 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(        c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.239 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(        x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x",     "y")))), throwsError())
test.matprod.240 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.241 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a",     "b", "c"), NULL))), throwsError())
test.matprod.242 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(        x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.243 <- function() assertThat(matprod(1:3, 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.244 <- function() assertThat(matprod(1:3, structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.245 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.246 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.247 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.248 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.249 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.250 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.251 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.252 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.253 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.254 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.255 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.256 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.257 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.258 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.259 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.260 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), throwsError())
test.matprod.261 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.262 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.263 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.264 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.265 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), 1:3), throwsError())
test.matprod.266 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.267 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.268 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.269 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.270 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.271 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.272 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.273 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.274 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.275 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.276 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), 1:3), throwsError())
test.matprod.277 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.278 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.279 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.280 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.281 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.282 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.283 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.284 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.285 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.286 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.287 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.288 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.289 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.290 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.291 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.292 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.293 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.294 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.295 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.296 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.297 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.298 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), 1:3), throwsError())
test.matprod.299 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.300 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.301 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.302 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.303 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L))))
test.matprod.304 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(NULL, c("c1", "c2")))))
test.matprod.305 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(NULL, y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.306 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.307 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.308 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.309 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), 1:3), throwsError())
test.matprod.310 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.311 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.312 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.313 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.314 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), NULL))))
test.matprod.315 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))))
test.matprod.316 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(c("r1", "r2"), y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.317 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.318 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.319 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.320 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.321 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.322 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.323 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.324 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.325 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), NULL), .Names = c("x", "")))))
test.matprod.326 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), c("c1", "c2")), .Names = c("x", "")))))
test.matprod.327 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))))
test.matprod.328 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.329 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.330 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.331 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.332 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.333 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.334 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.335 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.336 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.337 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.338 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.339 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.340 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.341 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.342 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.343 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.344 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.345 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.346 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.347 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.348 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.349 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.350 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.351 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), throwsError())
test.matprod.352 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.353 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.354 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.355 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.356 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b",     "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.357 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a",     "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"    )))), throwsError())
test.matprod.358 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.359 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(        c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.360 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(        x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x",     "y")))), throwsError())
test.matprod.361 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.362 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a",     "b", "c"), NULL))), throwsError())
test.matprod.363 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(        x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.364 <- function() assertThat(matprod(1:3, 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.365 <- function() assertThat(matprod(1:3, structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.366 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.367 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.368 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.369 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.370 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.371 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.372 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.373 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.374 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.375 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.376 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.377 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.378 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.379 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.380 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.381 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), throwsError())
test.matprod.382 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.383 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.384 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.385 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.386 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), 1:3), throwsError())
test.matprod.387 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.388 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.389 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.390 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.391 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.392 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.393 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.394 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.395 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.396 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.397 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), 1:3), throwsError())
test.matprod.398 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.399 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.400 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.401 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.402 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.403 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.404 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.405 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.406 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.407 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.408 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.409 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.410 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.411 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.412 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.413 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.414 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.415 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.416 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.417 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.418 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.419 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), 1:3), throwsError())
test.matprod.420 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.421 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.422 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.423 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.424 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L))))
test.matprod.425 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(NULL, c("c1", "c2")))))
test.matprod.426 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(NULL, y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.427 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.428 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.429 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.430 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), 1:3), throwsError())
test.matprod.431 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.432 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.433 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.434 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.435 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), NULL))))
test.matprod.436 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))))
test.matprod.437 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(c("r1", "r2"), y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.438 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.439 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.440 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.441 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.442 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.443 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.444 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.445 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.446 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), NULL), .Names = c("x", "")))))
test.matprod.447 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), c("c1", "c2")), .Names = c("x", "")))))
test.matprod.448 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))))
test.matprod.449 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.450 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.451 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.452 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.453 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.454 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.455 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.456 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.457 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.458 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.459 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.460 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.461 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.462 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.463 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.464 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.465 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.466 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.467 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.468 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.469 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.470 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.471 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.472 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), throwsError())
test.matprod.473 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.474 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.475 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.476 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.477 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b",     "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.478 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a",     "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"    )))), throwsError())
test.matprod.479 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.480 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(        c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.481 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(        x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x",     "y")))), throwsError())
test.matprod.482 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.483 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a",     "b", "c"), NULL))), throwsError())
test.matprod.484 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(        x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.485 <- function() assertThat(matprod(1:3, 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.486 <- function() assertThat(matprod(1:3, structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.487 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.488 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.489 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.490 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.491 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.492 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.493 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.494 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.495 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.496 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.497 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.498 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.499 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.500 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.501 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.502 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), throwsError())
test.matprod.503 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.504 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.505 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.506 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.507 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), 1:3), throwsError())
test.matprod.508 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.509 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.510 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.511 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.512 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.513 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.514 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.515 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.516 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.517 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.518 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), 1:3), throwsError())
test.matprod.519 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.520 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.521 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.522 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.523 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.524 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.525 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.526 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.527 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.528 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.529 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.530 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.531 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.532 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.533 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.534 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.535 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.536 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.537 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.538 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.539 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.540 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), 1:3), throwsError())
test.matprod.541 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.542 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.543 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.544 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.545 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L))))
test.matprod.546 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(NULL, c("c1", "c2")))))
test.matprod.547 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(NULL, y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.548 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.549 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.550 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.551 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), 1:3), throwsError())
test.matprod.552 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.553 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.554 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.555 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.556 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), NULL))))
test.matprod.557 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))))
test.matprod.558 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(c("r1", "r2"), y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.559 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.560 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.561 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.562 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.563 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.564 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.565 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.566 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.567 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), NULL), .Names = c("x", "")))))
test.matprod.568 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), c("c1", "c2")), .Names = c("x", "")))))
test.matprod.569 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))))
test.matprod.570 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.571 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.572 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.573 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.574 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.575 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.576 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.577 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.578 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.579 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.580 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.581 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.582 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.583 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.584 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.585 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.586 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.587 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.588 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.589 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.590 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.591 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.592 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.593 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), throwsError())
test.matprod.594 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.595 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.596 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.597 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.598 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b",     "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.599 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a",     "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"    )))), throwsError())
test.matprod.600 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.601 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(        c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.602 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(        x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x",     "y")))), throwsError())
test.matprod.603 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.604 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a",     "b", "c"), NULL))), throwsError())
test.matprod.605 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(        x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.606 <- function() assertThat(matprod(1:3, 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.607 <- function() assertThat(matprod(1:3, structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.608 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.609 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.610 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.611 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.612 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.613 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.614 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.615 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.616 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.617 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.618 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.619 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.620 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.621 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.622 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.623 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), throwsError())
test.matprod.624 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.625 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.626 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.627 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.628 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), 1:3), throwsError())
test.matprod.629 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.630 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.631 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.632 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.633 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.634 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.635 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.636 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.637 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.638 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.639 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), 1:3), throwsError())
test.matprod.640 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.641 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.642 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.643 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.644 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.645 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.646 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.647 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.648 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.649 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.650 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.651 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.652 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.653 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.654 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.655 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.656 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.657 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.658 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.659 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.660 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.661 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), 1:3), throwsError())
test.matprod.662 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.663 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.664 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.665 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.666 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L))))
test.matprod.667 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(NULL, c("c1", "c2")))))
test.matprod.668 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(NULL, y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.669 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.670 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.671 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.672 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), 1:3), throwsError())
test.matprod.673 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.674 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.675 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.676 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.677 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), NULL))))
test.matprod.678 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))))
test.matprod.679 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(c("r1", "r2"), y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.680 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.681 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.682 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.683 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.684 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.685 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.686 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.687 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.688 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), NULL), .Names = c("x", "")))))
test.matprod.689 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), c("c1", "c2")), .Names = c("x", "")))))
test.matprod.690 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))))
test.matprod.691 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.692 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.693 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.694 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.695 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.696 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.697 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.698 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.699 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.700 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.701 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.702 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.703 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.704 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.705 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.706 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.707 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.708 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.709 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.710 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.711 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.712 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.713 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.714 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), throwsError())
test.matprod.715 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.716 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.717 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.718 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.719 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b",     "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.720 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a",     "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"    )))), throwsError())
test.matprod.721 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.722 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(        c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.723 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(        x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x",     "y")))), throwsError())
test.matprod.724 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.725 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a",     "b", "c"), NULL))), throwsError())
test.matprod.726 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(        x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.727 <- function() assertThat(matprod(1:3, 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.728 <- function() assertThat(matprod(1:3, structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.729 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.730 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.731 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.732 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.733 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.734 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.735 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.736 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.737 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.738 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.739 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.740 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.741 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.742 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.743 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.744 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), throwsError())
test.matprod.745 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.746 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.747 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.748 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.749 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), 1:3), throwsError())
test.matprod.750 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.751 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.752 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.753 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.754 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.755 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.756 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.757 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.758 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.759 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.760 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), 1:3), throwsError())
test.matprod.761 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.762 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.763 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.764 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.765 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.766 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.767 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.768 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.769 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.770 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.771 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.772 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.773 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.774 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.775 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.776 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.777 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.778 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.779 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.780 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.781 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.782 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), 1:3), throwsError())
test.matprod.783 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.784 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.785 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.786 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.787 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L))))
test.matprod.788 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(NULL, c("c1", "c2")))))
test.matprod.789 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(NULL, y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.790 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.791 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.792 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.793 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), 1:3), throwsError())
test.matprod.794 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.795 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.796 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.797 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.798 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), NULL))))
test.matprod.799 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))))
test.matprod.800 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(c("r1", "r2"), y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.801 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.802 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.803 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.804 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.805 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.806 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.807 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.808 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.809 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), NULL), .Names = c("x", "")))))
test.matprod.810 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), c("c1", "c2")), .Names = c("x", "")))))
test.matprod.811 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))))
test.matprod.812 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.813 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.814 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.815 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.816 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.817 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.818 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.819 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.820 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.821 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.822 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.823 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.824 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.825 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.826 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.827 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.828 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.829 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.830 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.831 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.832 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.833 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.834 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.835 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), throwsError())
test.matprod.836 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.837 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.838 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.839 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.840 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b",     "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.841 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a",     "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"    )))), throwsError())
test.matprod.842 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.843 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(        c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.844 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(        x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x",     "y")))), throwsError())
test.matprod.845 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.846 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a",     "b", "c"), NULL))), throwsError())
test.matprod.847 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(        x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.848 <- function() assertThat(matprod(1:3, 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.849 <- function() assertThat(matprod(1:3, structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.850 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.851 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.852 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.853 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.854 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.855 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.856 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.857 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.858 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.859 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.860 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.861 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.862 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.863 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.864 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.865 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), throwsError())
test.matprod.866 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.867 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.868 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.869 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.870 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), 1:3), throwsError())
test.matprod.871 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.872 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.873 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.874 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.875 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.876 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.877 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.878 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.879 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.880 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.881 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), 1:3), throwsError())
test.matprod.882 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.883 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.884 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.885 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.886 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.887 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.888 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.889 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.890 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.891 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.892 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.893 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.894 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.895 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.896 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.897 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.898 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.899 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.900 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.901 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.902 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.903 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), 1:3), throwsError())
test.matprod.904 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.905 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.906 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.907 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.908 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L))))
test.matprod.909 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(NULL, c("c1", "c2")))))
test.matprod.910 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(NULL, y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.911 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.912 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.913 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.914 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), 1:3), throwsError())
test.matprod.915 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.916 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.917 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.918 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.919 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), NULL))))
test.matprod.920 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))))
test.matprod.921 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(c("r1", "r2"), y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.922 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.923 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.924 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.925 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.926 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.927 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.928 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.929 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.930 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), NULL), .Names = c("x", "")))))
test.matprod.931 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), c("c1", "c2")), .Names = c("x", "")))))
test.matprod.932 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))))
test.matprod.933 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.934 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.935 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.936 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.937 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.938 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.939 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.940 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.941 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.942 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.943 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.944 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.945 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.946 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.947 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.948 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.949 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.950 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.951 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.952 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.953 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.954 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.955 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.956 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), throwsError())
test.matprod.957 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.958 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.959 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.960 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.961 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b",     "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.962 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a",     "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"    )))), throwsError())
test.matprod.963 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.964 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(        c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.965 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(        x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x",     "y")))), throwsError())
test.matprod.966 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.967 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a",     "b", "c"), NULL))), throwsError())
test.matprod.968 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(        x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.969 <- function() assertThat(matprod(1:3, 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.970 <- function() assertThat(matprod(1:3, structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.971 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.972 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.973 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.974 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.975 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.976 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.977 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.978 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.979 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.980 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.981 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.982 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.983 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.984 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.985 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.986 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), throwsError())
test.matprod.987 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.988 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.989 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.990 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.991 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), 1:3), throwsError())
test.matprod.992 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.993 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.994 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.995 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.996 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.997 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.998 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.999 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1000 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1001 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1002 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), 1:3), throwsError())
test.matprod.1003 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.1004 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1005 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1006 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1007 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1008 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1009 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.1010 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1011 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1012 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1013 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.1014 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.1015 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1016 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1017 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1018 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1019 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1020 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.1021 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1022 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1023 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1024 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), 1:3), throwsError())
test.matprod.1025 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.1026 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1027 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1028 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1029 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L))))
test.matprod.1030 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(NULL, c("c1", "c2")))))
test.matprod.1031 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(NULL, y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.1032 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1033 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1034 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1035 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), 1:3), throwsError())
test.matprod.1036 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.1037 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1038 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1039 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1040 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), NULL))))
test.matprod.1041 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))))
test.matprod.1042 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(c("r1", "r2"), y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.1043 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1044 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1045 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1046 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.1047 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.1048 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1049 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1050 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1051 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), NULL), .Names = c("x", "")))))
test.matprod.1052 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), c("c1", "c2")), .Names = c("x", "")))))
test.matprod.1053 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))))
test.matprod.1054 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1055 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1056 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1057 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.1058 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.1059 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1060 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1061 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1062 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1063 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1064 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.1065 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1066 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1067 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1068 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.1069 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.1070 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1071 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1072 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1073 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1074 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1075 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.1076 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1077 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), throwsError())
test.matprod.1078 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1079 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.1080 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.1081 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1082 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b",     "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1083 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a",     "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"    )))), throwsError())
test.matprod.1084 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1085 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(        c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1086 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(        x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x",     "y")))), throwsError())
test.matprod.1087 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1088 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a",     "b", "c"), NULL))), throwsError())
test.matprod.1089 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(        x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1090 <- function() assertThat(matprod(1:3, 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1091 <- function() assertThat(matprod(1:3, structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1092 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.1093 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.1094 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.1095 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1096 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1097 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.1098 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1099 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1100 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1101 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1102 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1103 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.1104 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.1105 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.1106 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1107 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), throwsError())
test.matprod.1108 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.1109 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1110 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1111 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1112 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), 1:3), throwsError())
test.matprod.1113 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.1114 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1115 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1116 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1117 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1118 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1119 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.1120 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1121 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1122 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1123 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), 1:3), throwsError())
test.matprod.1124 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.1125 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1126 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1127 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1128 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1129 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1130 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.1131 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1132 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1133 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1134 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.1135 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.1136 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1137 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1138 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1139 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1140 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1141 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.1142 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1143 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1144 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1145 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), 1:3), throwsError())
test.matprod.1146 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.1147 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1148 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1149 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1150 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L))))
test.matprod.1151 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(NULL, c("c1", "c2")))))
test.matprod.1152 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(NULL, y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.1153 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1154 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1155 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1156 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), 1:3), throwsError())
test.matprod.1157 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.1158 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1159 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1160 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1161 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), NULL))))
test.matprod.1162 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))))
test.matprod.1163 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(c("r1", "r2"), y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.1164 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1165 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1166 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1167 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.1168 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.1169 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1170 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1171 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1172 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), NULL), .Names = c("x", "")))))
test.matprod.1173 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), c("c1", "c2")), .Names = c("x", "")))))
test.matprod.1174 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))))
test.matprod.1175 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1176 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1177 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1178 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.1179 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.1180 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1181 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1182 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1183 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1184 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1185 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.1186 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1187 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1188 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1189 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.1190 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.1191 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1192 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1193 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1194 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1195 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1196 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.1197 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1198 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), throwsError())
test.matprod.1199 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1200 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.1201 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.1202 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1203 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b",     "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1204 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a",     "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"    )))), throwsError())
test.matprod.1205 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1206 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(        c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1207 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(        x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x",     "y")))), throwsError())
test.matprod.1208 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1209 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a",     "b", "c"), NULL))), throwsError())
test.matprod.1210 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(        x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1211 <- function() assertThat(matprod(1:3, 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1212 <- function() assertThat(matprod(1:3, structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1213 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.1214 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.1215 <- function() assertThat(matprod(1:3, structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.1216 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1217 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1218 <- function() assertThat(matprod(1:3, structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.1219 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1220 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1221 <- function() assertThat(matprod(1:3, structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1222 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), 1:3), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1223 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1224 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4)), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L))))
test.matprod.1225 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = list(    NULL, c("d", "e", "f", "g")))))
test.matprod.1226 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(structure(c(14, 32, 50, 68), .Dim = c(1L, 4L), .Dimnames = structure(list(    NULL, y = c("d", "e", "f", "g")), .Names = c("", "y")))))
test.matprod.1227 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1228 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), throwsError())
test.matprod.1229 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.1230 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1231 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1232 <- function() assertThat(matprod(structure(1:3, .Names = c("p", "q", "r")), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), identicalTo(structure(14, .Dim = c(1L, 1L))))
test.matprod.1233 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), 1:3), throwsError())
test.matprod.1234 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.1235 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1236 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1237 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1238 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1239 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1240 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.1241 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1242 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1243 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1244 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), 1:3), throwsError())
test.matprod.1245 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.1246 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1247 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1248 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1249 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1250 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1251 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.1252 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1253 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1254 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1255 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.1256 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.1257 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1258 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1259 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1260 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1261 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1262 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.1263 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1264 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1265 <- function() assertThat(matprod(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1266 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), 1:3), throwsError())
test.matprod.1267 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.1268 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1269 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1270 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1271 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L))))
test.matprod.1272 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"),     c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(NULL, c("c1", "c2")))))
test.matprod.1273 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(NULL, y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.1274 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1275 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1276 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1277 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), 1:3), throwsError())
test.matprod.1278 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.1279 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1280 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1281 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1282 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), NULL))))
test.matprod.1283 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))))
test.matprod.1284 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(c("r1", "r2"), y = c("c1", "c2")), .Names = c("", "y")))))
test.matprod.1285 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1286 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1287 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1288 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), 1:3), throwsError())
test.matprod.1289 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Names = c("p", "q", "r"))), throwsError())
test.matprod.1290 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1291 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1292 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1293 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), NULL), .Names = c("x", "")))))
test.matprod.1294 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(    c("r1", "r2"), c("c1", "c2")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), c("c1", "c2")), .Names = c("x", "")))))
test.matprod.1295 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), identicalTo(structure(c(NA_real_, NA_real_, NA_real_, NA_real_), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))))
test.matprod.1296 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1297 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1298 <- function() assertThat(matprod(structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(    x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y"))), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1299 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.1300 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L))))
test.matprod.1301 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1302 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1303 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1304 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1305 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1306 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.1307 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1308 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL))), throwsError())
test.matprod.1309 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1310 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), 1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.1311 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = list(    c("a", "b", "c"), NULL))))
test.matprod.1312 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1313 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = list(    c("a", "b", "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1314 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    x = c("a", "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y")))), throwsError())
test.matprod.1315 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1316 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1317 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x", "y")))), throwsError())
test.matprod.1318 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1319 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(    c("a", "b", "c"), NULL))), throwsError())
test.matprod.1320 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a", "b", "c"), NULL)), structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
test.matprod.1321 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     1:3), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.1322 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Names = c("p", "q", "r"))), identicalTo(structure(c(1, 2, 3, 2, 4, 6, 3, 6, 9), .Dim = c(3L, 3L), .Dimnames = structure(list(    x = c("a", "b", "c"), NULL), .Names = c("x", "")))))
test.matprod.1323 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4)), throwsError())
test.matprod.1324 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = list(c("a", "b",     "c"), c("d", "e", "f", "g")))), throwsError())
test.matprod.1325 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:12, .Dim = 3:4, .Dimnames = structure(list(x = c("a",     "b", "c"), y = c("d", "e", "f", "g")), .Names = c("x", "y"    )))), throwsError())
test.matprod.1326 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L))), throwsError())
test.matprod.1327 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = list(        c("r1", "r2"), c("c1", "c2")))), throwsError())
test.matprod.1328 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(c(1, NA, NA, 3), .Dim = c(2L, 2L), .Dimnames = structure(list(        x = c("r1", "r2"), y = c("c1", "c2")), .Names = c("x",     "y")))), throwsError())
test.matprod.1329 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L))), throwsError())
test.matprod.1330 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = list(c("a",     "b", "c"), NULL))), throwsError())
test.matprod.1331 <- function() assertThat(matprod(structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(    x = c("a", "b", "c"), y = NULL), .Names = c("x", "y"))),     structure(1:3, .Dim = c(3L, 1L), .Dimnames = structure(list(        x = c("a", "b", "c"), y = NULL), .Names = c("x", "y")))), throwsError())
