From 9a18e883377a2dc3fd19903cdedfed93fd9e9bad Mon Sep 17 00:00:00 2001 From: Rajita Chandak Date: Thu, 7 Nov 2024 09:30:12 +0100 Subject: [PATCH] checking off flag --- R/lpcde/tests/testthat/test-lpcde.R | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/R/lpcde/tests/testthat/test-lpcde.R b/R/lpcde/tests/testthat/test-lpcde.R index 83331b0..38bfa26 100644 --- a/R/lpcde/tests/testthat/test-lpcde.R +++ b/R/lpcde/tests/testthat/test-lpcde.R @@ -60,6 +60,10 @@ test_that("error checking", { model2 = lpcde(x_data=x_data, y_data=y_data, y_grid=y_grid, x=0, kernel_type="triangular", bw=1.8, cov_flag="diag") expect_equal(model2$opt$kernel, "triangular") expect_equal(model2$opt$cov_flag, "diag") + + model2 = lpcde(x_data=x_data, y_data=y_data, y_grid=y_grid, x=0, kernel_type="triangular", bw=1.8, cov_flag="off") + expect_equal(model2$CovMat$CovMat, NA) + expect_equal(model2$CovMat$CovMat_RBC, NA) }) test_that("lpcde multivariate output", {