testthat and build

Author: lsteinmann

DESCRIPTION

@@ -9,4 +9,4 @@ License: CC BY-SA 4.0
 Encoding: UTF-8
 LazyData: true
 RoxygenNote: 7.1.0
-
+Suggests: testthat, devtools

R/datsteps.R

@@ -18,6 +18,7 @@
 #' @export datsteps
 
 datsteps <- function(DAT_df, stepsize = 25) {
+  DAT_mat <- as.matrix(DAT_df)
   result <- as.data.frame(NULL)
   if (stepsize == "auto") {
     stepsize <- generate.stepsize(DAT_df)
@@ -39,3 +40,4 @@ datsteps <- function(DAT_df, stepsize = 25) {
   result <- create.sub.objects(DAT_df, stepsize)
   return(result)
 }
+

man/create.sub.objects.Rd

@@ -0,0 +1,4 @@
+library(testthat)
+library(datplot)
+
+test_check("datplot")

man/generate.stepsize.Rd

@@ -0,0 +1,16 @@
+library(datplot)
+library(devtools)
+
+testmat <- matrix(c(1,2,3,4,6,6,8,8,0,0,50,-200,5,-200,50,5), byrow = FALSE, ncol = 4)
+DAT_err <- which(testmat[,3] > testmat[,4])
+DAT_err
+
+
+test_that("generate.stepsize returns one", {
+  expect_equal(generate.stepsize(testmat), 1)
+})
+
+corrmat <- matrix(c(1,2,3,4,6,6,8,8,0,-200,50,-200,5,0,50,5), byrow = FALSE, ncol = 4)
+test_that("switch.dating returns values correctly", {
+  expect_equal(switch.dating(testmat, DAT_err), corrmat)
+})