tests/testthat/_snaps/local_slope.md

In bentrueman/bgamcar1: Fit Bayesian GAMs With CAR(1) Errors To Censored Data

local_slope() returns expected values

Code
  slp$slopes
Output
  # A tibble: 996,000 x 4
          x2 .draw slope smooth
       <dbl> <dbl> <dbl>  <dbl>
   1 0.00234     1  42.3  -3.31
   2 0.00234     2  36.0  -3.10
   3 0.00234     3  43.1  -3.29
   4 0.00234     4  40.6  -3.12
   5 0.00234     5  45.6  -3.49
   6 0.00234     6  20.2  -2.03
   7 0.00234     7  20.0  -4.19
   8 0.00234     8  33.1  -4.85
   9 0.00234     9  39.0  -4.08
  10 0.00234    10  43.3  -4.23
  # i 995,990 more rows

Code
  slp$slopes2
Output
  # A tibble: 2,754,000 x 5
     g         x2 .draw slope smooth
     <chr>  <dbl> <dbl> <dbl>  <dbl>
   1 a     0.0774     1  43.8 -0.253
   2 a     0.0774     2  45.4  0.344
   3 a     0.0774     3  50.8 -1.54 
   4 a     0.0774     4  64.8 -0.573
   5 a     0.0774     5  76.6 -2.59 
   6 a     0.0774     6  67.6 -1.11 
   7 a     0.0774     7  36.9  1.34 
   8 a     0.0774     8  49.5 -1.26 
   9 a     0.0774     9  40.4  0.154
  10 a     0.0774    10  32.4  0.162
  # i 2,753,990 more rows

bentrueman/bgamcar1 documentation built on July 6, 2024, 11:16 p.m.