... < 0.01 is not TRUE

`actual`:   FALSE
`expected`: TRUE

test_that("gp_to_s is working properly", {
# All true gp() terms should be changed to s() with k = k+1
# Characters that match to 'gp' should not be changed
attr(terms(formula(y ~ s(starwars, k = 11) + s(gp)),
test_that("gp for observation models working properly", {
# Gp data structures should be in the model_data
# These should match to the eigenvalues and eigenfunctions created by
brms_dat <- suppressWarnings(brms::make_standata(y ~ s(series, bs = 're') +
# Eigenfunctions will be nearly identical
row_s1 <- which(gaus_data$data_train$series == 'series_1' &
# The mgcv model formula should contain s() in place of gp()
attr(terms(formula(y ~ s(time, by = series, k = 11) +
test_that("gp for process models working properly", {
# Model file should have prior lines for gp terms
brms_dat <- suppressWarnings(brms::make_standata(y ~ gp(time, by = series, k = 10,

"gp for observation models working properly"
"gp for process models working properly"

gp for observation models working properly