fix tests

vincentarelbundock · Sep 11, 2023 · edd3ea7 · edd3ea7
1 parent d68633e
commit edd3ea7
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/inst/tinytest/test-pkg-mlogit.R b/inst/tinytest/test-pkg-mlogit.R
@@ -10,15 +10,14 @@
 # nd <- TravelMode[, 3:ncol(TravelMode)]
 # predict(mod, newdata = head(nd, 12))
 source("helpers.R")
-exit_file("TODO: CHECK THIS")
 using("marginaleffects")
 if (ON_CI) exit_file("on ci")
 requiet("nnet")
 requiet("mlogit")
 requiet("data.table")
 
 TravelMode <- read.csv("https://vincentarelbundock.github.io/Rdatasets/csv/AER/TravelMode.csv")
-TravelMode$X <- NULL # {mlogit} assumes first column is the index
+TravelMode$rownames <- NULL # {mlogit} assumes first column is the index
 mod <- mlogit(choice ~ wait + gcost | income + size, data = TravelMode)
 
 # no validity

diff --git a/inst/tinytest/test-pkg-plm.R b/inst/tinytest/test-pkg-plm.R
@@ -1,5 +1,5 @@
 source("helpers.R")
-exit_file("CHECK THIS")
+# exit_file("CHECK THIS")
 using("marginaleffects")
 
 requiet("margins")
@@ -10,7 +10,7 @@ tol <- .001
 tol_se <- .01 # BDR emergency email about tiny numerical differences
 
 dat <- read.csv("https://vincentarelbundock.github.io/Rdatasets/csv/plm/Grunfeld.csv")
-dat$X <- NULL
+dat$rownames <- NULL
 dat <<- pdata.frame(dat)
 pool <- plm(inv ~ value * capital, data = dat, model = "pooling")
 swamy <- plm(