fixed test syntax error

GotelliLab · Feb 18, 2015 · 68728c9 · 68728c9
1 parent 88a8df8
commit 68728c9
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 14 deletions.
diff --git a/R/metrics.R b/R/metrics.R
@@ -234,14 +234,6 @@ czekanowski_skew <- function(m=matrix(rpois(80,1),nrow=10))
   return(czekanowskiSkew)
 }
 
-##
-##
-
-
-# Co-occurrence algorithms and metrics for testing
-# 25 May 2013
-# NJG
-
 #' Number of species combinations
 #' @description Function to calculate number of unique species combinations in a matrix
 #' @details In Diamond's (1975) assembly rules model, species interactions lead to 

diff --git a/tests/testthat/test_nichebreadth.R b/tests/testthat/test_nichebreadth.R
@@ -39,43 +39,43 @@ test_that("ra4 algorithm works:",{
 }
 )
 
-test_that("pianka metric works:"{
+test_that("pianka metric works:",{
 expect_true(is.numeric(pianka(ra1())))
 expect_true(is.numeric(pianka(ra4(macwarb[,2:5]))))
 expect_true(pianka(ra4(macwarb[,2:5])) > .5 )
 
 })
 
-test_that("czekanowski metric works:"{
+test_that("czekanowski metric works:",{
   expect_true(is.numeric(czekanowski(ra1())))
   expect_true(is.numeric(czekanowski(ra4(macwarb[,2:5]))))
   expect_true(czekanowski(ra4(macwarb[,2:5])) > .5 )
 
 })
 
-test_that("pianka_var metric works:"{
+test_that("pianka_var metric works:",{
   expect_true(is.numeric(pianka_var(ra1())))
   expect_true(is.numeric(pianka_var(ra4(macwarb[,2:5]))))
   expect_true(pianka_var(ra4(macwarb[,2:5])) < .5 )
 
 })
 
 
-test_that("czekanowski_var metric works:"{
+test_that("czekanowski_var metric works:",{
   expect_true(is.numeric(czekanowski_var(ra1())))
   expect_true(is.numeric(czekanowski_var(ra4(macwarb[,2:5]))))
   expect_true(czekanowski_var(ra4(macwarb[,2:5])) < .5 )
 
 })
 
-test_that("pianka_skew metric works:"{
+test_that("pianka_skew metric works:",{
   expect_true(is.numeric(pianka_skew(ra1())))
   expect_true(is.numeric(pianka_skew(ra4(macwarb[,2:5]))))
 
 })
 
 
-test_that("czekanowski_skew metric works:"{
+test_that("czekanowski_skew metric works:",{
   expect_true(is.numeric(czekanowski_skew(ra1())))
   expect_true(is.numeric(czekanowski_skew(ra4(macwarb[,2:5]))))  
 })