tests/testthat/test_prepData.R

In bmcclintock/momentuHMM: Maximum Likelihood Analysis of Animal Movement Behavior Using Multivariate Hidden Markov Models

context("prepData")

test_that("Exception is thrown",{
  x <- c(1,2,3,4,5,6,7,8,9,10)
  y <- c(1,1,1,2,2,2,1,1,1,2)
  z <- c(1,1,1,2,2,2,1,1,1,2)

  trackData <- data.frame()
  expect_error(prepData(trackData))
  
  trackData <- data.frame(x)
  expect_error(prepData(trackData))
  expect_error(prepData(trackData,coordNames=NULL),NA)
  
  trackData <- data.frame(x,y)
  expect_error(prepData(trackData,type="UTM"),NA)
  expect_error(prepData(trackData,type="UTM",coordNames=c("x","y")),NA)
  expect_error(prepData(trackData,type="UTM",coordNames=c("x")))
  
  trackData <- data.frame(x,z)
  expect_error(prepData(trackData,type="UTM",coordNames=c("x","z")),NA)

  trackData <- data.frame(x,y,z)
  expect_error(prepData(trackData,type="UTM"),NA)
  expect_error(prepData(trackData,type="UTM",coordNames=c("x","y"),covNames="z"),NA)
  expect_error(prepData(trackData,type="UTM",coordNames=c("x","z")))
  expect_error(prepData(trackData,type="UTM",coordNames=c("x","lat")))
  expect_error(prepData(trackData,type="UTM",coordNames=c("x","y"),covNames="z",centers=matrix(c(0,10,0,10),2,2)),NA)
  expect_error(prepData(trackData,type="UTM",coordNames=c("x","y"),covNames="z",spatialCovs=list(forest=forest)),NA)
  
})

test_that("The right slots are defined",{
  x <- c(1,2,3,4,5,6,7,8,9,10)
  y <- c(1,1,1,2,2,2,1,1,1,2)
  trackData <- data.frame(x,y)
  data <- prepData(trackData,coordNames=c("x","y"))

  expect_true(!is.null(data$ID))
  expect_true(!is.null(data$x))
  expect_true(!is.null(data$y))
  expect_true(!is.null(data$step))
  expect_true(!is.null(data$angle))
})

test_that("The returned object is of the correct class",{
  x <- c(1,2,3,4,5,6,7,8,9,10)
  y <- c(1,1,1,2,2,2,1,1,1,2)
  trackData <- data.frame(x,y)
  data <- prepData(trackData,coordNames=c("x","y"))

  expect_equal(class(data),c("momentuHMMData","data.frame"))
})