From 8d091e09ecd7837656d78dcc56b8b23d31872ed0 Mon Sep 17 00:00:00 2001
From: Jim Thorson <James.T.Thorson@gmail.com>
Date: Thu, 1 Feb 2024 17:29:57 -0800
Subject: [PATCH] adding test for adding variances

---
 tests/testthat/test-platform.R | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/tests/testthat/test-platform.R b/tests/testthat/test-platform.R
index 827399f..e014be3 100644
--- a/tests/testthat/test-platform.R
+++ b/tests/testthat/test-platform.R
@@ -77,3 +77,14 @@ test_that("dsem example is working ", {
   residuals(fit1, type="response")
 })
 
+test_that("dsem adds variances ", {
+  data(isle_royale)
+  data = ts( log(isle_royale[,2:3]), start=1959)
+
+  sem = "
+  "
+  # initial first without delta0 (to improve starting values)
+  fit = dsem( sem = sem,
+               tsdata = data )
+})
+