tests

Author: lsteinmann

tests/create_testing_df.R

@@ -0,0 +1,36 @@
+#' @title Data frame for tests
+#'
+#' @description Produces data frame to test stuff
+#'
+#' @param k rows
+#' @param distmean findable thing
+#' @param distsd lalala
+#'
+#' @return df for testing
+#'
+#' @examples
+#'
+#' @export create.testing.df
+
+
+create.testing.df <- function(k = 100, distmean = 150, distsd = 25) {
+  test_df <- as.data.frame(matrix(nrow = k, ncol = 4))
+  colnames(test_df) <- c("id", "variable", "min", "max")
+  vars <- c("A", "B", "C")
+  test_df_two <- test_df
+  test_df$variable <- rep(vars, times = ceiling(k/length(vars)))[1:k]
+  test_df$min <- round(runif(100, min = -699, max = 699), digits = 0)
+  test_df$max <- test_df$min + (round(runif(100, min = 1, max = 299), digits = 0))
+
+
+  test_df_two$min <- round(rnorm(k, mean = distmean, sd = distsd), digits = 0)
+  test_df_two$max <- test_df_two$min + round(rnorm(k, mean = 35, sd = 9), digits = 0)
+  test_df_two$variable <- "D"
+
+  test_df <- rbind(test_df, test_df_two)
+  rm(test_df_two)
+  test_df <- test_df[sample(nrow(test_df)),]
+
+  test_df$id <- paste("ID_", 1:nrow(test_df), sep ="")
+  return(test_df)
+}

tests/testthat/test-datplot_utility.R

@@ -16,3 +16,21 @@ testmat <- as.data.frame(matrix(c(1,2,3,4,6,6,8,8,0,0,50,-200,5,-200,50,5), byro
 test_that("switch.dating returns values correctly", {
   expect_equal(switch.dating(as.data.frame(testmat), DAT_err), corrmat)
 })
+
+source(file = "../create_testing_df.R")
+testdf <- create.testing.df()
+
+fristlast <- matrix(nrow = nrow(testdf), ncol = 2)
+for (r in 1:nrow(testdf)) {
+  seq <- get.step.sequence(datmin = testdf[r,3],
+                    datmax = testdf[r,4],
+                    stepsize = 25)
+  fristlast[r,1] <- seq[1]
+  fristlast[r,2] <- seq[length(seq)]
+}
+
+library(testthat)
+test_that("sequence returns first and last values", {
+  expect_equal(fristlast[,1], testdf[,3])
+  expect_equal(fristlast[,2], testdf[,4])
+})

tests/testthat/test-datsteps.R

@@ -0,0 +1,6 @@
+source(file = "../create_testing_df.R")
+testdf <- create.testing.df()
+
+test_that("error for wrong value of stepsize", {
+  expect_error(datsteps(testdf, stepsize = "test"))
+})