From 3b77a012e0cbda11f70ff31ef1fe2924a1a0ebfc Mon Sep 17 00:00:00 2001
From: Luke Sonnet <luke.sonnet@gmail.com>
Date: Sat, 29 Jul 2017 20:36:05 +0500
Subject: [PATCH] Stopped inference when using non-gaussian kernels #9

---
 R/inference.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/R/inference.R b/R/inference.R
index 9df6ac0..c27d0e1 100644
--- 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")
   }