Merge pull request #162 from venpopov/documentation/153-update-oberau…

…erlin_2017

Documentation/153 update oberauerlin 2017

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: bmm
 Title: Easy and Accesible Bayesian Measurement Models using 'brms'
-Version: 0.4.5.9000
+Version: 0.4.6.9000
 Authors@R: c(
     person("Vencislav", "Popov", , "[email protected]", role = c("aut", "cre", "cph")),
     person("Gidon", "Frischkorn", , "[email protected]", role = c("aut", "cph")),

NEWS.md

@@ -9,6 +9,7 @@
 * you can now choose to estimate parameters that are fixed to a constant by default for all models (#145)
 * default priors for all models are now specified via the configure_prior() S3 method (#145)
 * `cmdstanr` will be used as the default backend for `brms` if the user has it installed (#145)
+* various updates to the documentation and data sets
 
 ### Bug fixes
 * fix a bug preventing the sort_data check from being executed (#72)

R/bmm_model_IMM.R

@@ -293,6 +293,9 @@ check_data.IMMspatial <- function(model, data, formula) {
          "The number of columns for non-target distances in the argument \\
          'nt_distances' should equal max(setsize)-1})")
 
+  # replace nt_distances
+  data[,nt_distances][is.na(data[,nt_distances])] <- 999
+
   stopif(any(data[,nt_distances] < 0),
          "All non-target distances to the target need to be postive.")
 

tests/testthat/test-bmm_model_IMM.R

@@ -147,13 +147,13 @@ test_that('IMM models run when setsize is a predictor and intercept is supressed
   formula <- bmf(
     kappa ~ 1,
     c ~ 1,
-    s ~ 0+set_size
+    s ~ 0 + set_size
   )
   model <- IMMbsc(resp_err = 'dev_rad',
                   nt_features = paste0("col_nt",1:7),
                   nt_distances = paste0("dist_nt",1:7),
                   setsize = "set_size")
-  expect_silent(fit_model(formula, dat, model, backend = 'mock', mock=1, rename = F))
+  expect_silent(fit_model(formula, dat, model, backend = 'mock', mock = 1, rename = F))
 
 
   formula <- bmf(