Fix point estimate example and redocument

jeffreypullin · May 28, 2020 · 0d1b86b · 0d1b86b
1 parent 99ff1f8
commit 0d1b86b
Show file tree

Hide file tree

Showing 5 changed files with 10 additions and 6 deletions.
diff --git a/R/extract.R b/R/extract.R
@@ -117,7 +117,7 @@ posterior_interval.optim_fit <- function(object,
 #'   statistical interpretation of the values.
 #'
 #' @examples
-#' fit <- rater(long_data(anesthesia), dawid_skene(), method = "optim")
+#' fit <- rater(anesthesia, dawid_skene(), method = "optim")
 #' point_estimate(fit, pars = "pi")
 #'
 #' @export

diff --git a/R/rater_fit_class.R b/R/rater_fit_class.R
@@ -238,7 +238,7 @@ get_model <- function(f) {
 
 #' Get the posterior samples from a rater mcmc fit object
 #'
-#' @fit A rater mcmc fit object
+#' @param fit A rater mcmc fit object
 #'
 #' @noRd
 get_samples <- function(fit) {

diff --git a/man/caries.Rd b/man/caries.Rd
diff --git a/man/point_estimate.Rd b/man/point_estimate.Rd
diff --git a/tests/testthat/test_rater.R b/tests/testthat/test_rater.R
@@ -1,12 +1,16 @@
 context("rater")
 
-# This function needs more tests!
-
 test_that("rater returns objects of the correct type", {
 
   expect_equal(is.rater_fit(ds_fit), TRUE)
   expect_equal(is.mcmc_fit(ds_fit), TRUE)
 
+})
+
+test_that("rater error for bad input", {
+
+
+
 })
 
 test_that("parse priors are correct", {