inst/tests/test1.r

In SCCWRP/CSCI: Tools for California Freshwater Biotic Assessment

library(testthat)
library(BMIMetrics)
library(reshape2)
library(randomForest)
library(plyr)

lapply(list.files("CSCI/R/", full.names=TRUE), source)
data(bugs_stations, package="CSCI")
bugs <- bugs_stations[[1]]
stations <- bugs_stations[[2]]
mmi <- new("mmi", bugs, stations)
str(nameMatch(mmi))

newmmi <- score(mmi)
testcsci <- CSCI(bugs_stations[[1]], bugs_stations[[2]])
context("High level run through ")

test_that("Runs through example data", {
  expect_that(length(CSCI(bugs_stations[[1]], bugs_stations[[2]])) == 6 , is_true())
})


test_that("Works with just AREA_SQKM or LogWSA", {
  expect_that(local({bugs_stations[[2]] <- bugs_stations[[2]][, c(-2)]
                     length(CSCI(bugs_stations[[1]], bugs_stations[[2]])) == 6}), is_true())
  expect_that(local({bugs_stations[[2]] <- bugs_stations[[2]][, c(-20)]
                     length(CSCI(bugs_stations[[1]], bugs_stations[[2]])) == 6}), is_true())
})