OperateR: new oparation to create a binary map

R/01-mapOperations.R

@@ -0,0 +1,14 @@
+#' Get Binary Predictions
+#'
+#' @param XPred1 (data.frame) prediction matrix of first map
+#' @param XPred2 (data.frame) prediction matrix of second map
+#' @return (data.frame) prediction matrix of resulting map
+getBinaryPredictions <- function(XPred1, XPred2) {
+  # your code doing the calculations
+
+  # this is just a placeholder!
+  result <- XPred1
+
+  # return the result
+  return(result)
+}

tests/testthat/test-mapOperations.R

@@ -0,0 +1,20 @@
+testthat::test_that("function getBinaryPredictions", {
+  # setup test
+  testPredictions <- readRDS(testthat::test_path("testdata", "test-mapOperations.rds"))
+  testExpectedColnames <- c("Longitude", "Latitude", "Est", "Sd", "SDPop", "SdTotal", "IntLower",
+                            "IntUpper", "IntLowerTotal", "IntUpperTotal", "resError")
+
+  # test the calculation
+  testXPredResult <- getBinaryPredictions(testPredictions$testXPred1, testPredictions$testXPred2)
+  expect_true(is.data.frame(testXPredResult))
+  expect_true(nrow(testXPredResult) > 0)
+  expect_equal(colnames(testXPredResult), testExpectedColnames)
+
+  # test plotting of the map
+  testInputs <- list(XPred = testXPredResult,
+                     type = "difference",
+                     independent = "")
+
+  # we cannot test the output, but we can test if the function runs without error
+  expect_true(is.list(do.call(plotDS, testInputs)))
+})