test commit with fac

Author: stoeckea.hub

R/factorize.R

@@ -0,0 +1,11 @@
+
+#' Factorize tensor product effects
+#' 
+#' @export
+#' @name factorize
+
+factorize <- factorise <- function(x, ...) {
+  UseMethod("factorize")
+}
+
+factorize.default <- function(x, ...) stop("No default factorization.")