Stopped inference when using non-gaussian kernels #9

lukesonnet · Jul 29, 2017 · 3b77a01 · 3b77a01
1 parent 6756d7b
commit 3b77a01
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/inference.R b/R/inference.R
@@ -17,6 +17,10 @@ inference.krls2 <- function(obj,
                             derivative = TRUE,
                             cpp = TRUE) {
 
+  if (obj$kernel != 'gaussian') {
+    stop("Currently standard errors and marginal effects are only supported for gaussian kernels.")
+  }
+
   if (!vcov) {
     warning("Standard errors only available if vcov = TRUE")
   }