Fix threshold model tidy() unit test

tests/testthat/test-threshold-models.R

@@ -10,7 +10,7 @@ test_that("A logistic threshold model fits", {
   expect_true("depth_scaled-s50" %in% tidy(m)$term)
   expect_true("depth_scaled-s95" %in% tidy(m)$term)
   expect_true("depth_scaled-smax" %in% tidy(m)$term)
-  expect_equal(tidy(m)[,"estimate",drop=TRUE], c(1.555 , 1.655 , 1.718 , 1.138, -0.979, -3.173 , 1.760), tolerance = 1e-3)
+  expect_equal(tidy(m)[,"estimate",drop=TRUE], c(1.555 , 1.655 , 1.718 , 1.138, -0.979, -0.937 , 1.760), tolerance = 1e-3)
 })
 
 test_that("A linear threshold model fits", {
@@ -114,3 +114,4 @@ test_that("A linear threshold *delta* model fits", {
   expect_equal(t1$std.error, td1$std.error, tolerance = 1e-5)
   expect_equal(t2$std.error, td2$std.error, tolerance = 1e-5)
 })
+