From e93bfdda05d83762f5bc79df684af2034cfc2d93 Mon Sep 17 00:00:00 2001
From: daniel <daniel@kapla.at>
Date: Wed, 21 Oct 2020 19:01:05 +0200
Subject: [PATCH] fix: cve model.matrix bug

---
 CVE/R/CVE.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/CVE/R/CVE.R b/CVE/R/CVE.R
index 6ec0e27..1fcd4bf 100644
--- a/CVE/R/CVE.R
+++ b/CVE/R/CVE.R
@@ -174,7 +174,7 @@ cve <- function(formula, data, method = "mean", max.dim = 10L, ...) {
     # extract `X`, `Y` from `formula` with `data`
     model <- stats::model.frame(formula, data)
     Y <- stats::model.response(model, "double")
-    X <- stats::model.matrix(model)
+    X <- stats::model.matrix(model, data)
     if ("(Intercept)" %in% colnames(X)) {
         X <- X[, "(Intercept)" != colnames(X), drop = FALSE]
     }