tests/testthat/test-bootstrap.R

In fsfrazao/SharedS: Assessing the influence of occasional species on shared-species metrics

 test_that("test.bootstrap", {
 data(community_data)
 comm.A<-community_data[which(community_data$environment == "A"),]
 comm.A <- comm.A[, 3:ncol(comm.A)]

 
 expected.b1<-matrix(c(5,5,6,6,1,2,2,8,8,8,5,6,5,6,3,2,5,5,8,8,0,0,1,0,1,7,7,7,7,7,6,1,3,6,6,7,10,10,10,7,7,8,7,6,7,0,0,0,0,0,7,1,2,0,2,8,5,8,2,5,6,10,1,1,1,6,8,8,8,2,0,0,0,2,3,2,1,1,2,1,8,0,5,9,4,3,7,3,7,9,10,5,4,5,4,10,2,2,5,10,8,0,1,0,1,10,0,10,0,10,0,10,5,10,5,3,8,9,8,3,6,2,5,5,9,9,7,9,7,7,2,2,2,2,6,3,9,10,3,9,6,6,6,3,8,2,4,2,8,4),
            nrow=5, ncol=30)
 expected.b2<-matrix(c(1,6,6,1,1,2,2,8,2,3,5,6,4,3,5,2,2,2,2,6,1,0,1,0,1,6,7,6,7,7,3,3,6,1,6,2,2,10,2,10,6,7,6,3,7,0,0,0,0,0,7,7,7,1,2,5,3,8,2,5,1,1,1,9,10,8,2,2,6,10,2,2,3,0,3,1,8,2,8,8,4,4,8,8,0,9,3,4,7,9,10,10,5,10,1,2,3,2,5,5,1,0,1,1,8,10,2,0,10,10,10,0,10,10,10,0,3,9,9,0,6,5,9,9,9,7,7,7,9,7,10,10,2,10,2,10,8,10,2,2,6,2,2,3,6,2,4,4,4,2),
            nrow=5, ncol=30)
 expected.b3<-matrix(c(5,1,6,6,1,2,2,2,3,2,4,4,6,3,5,2,8,5,2,6,1,1,1,1,1,10,6,6,10,6,3,1,3,6,1,5,5,7,10,5,7,6,3,3,7,0,0,0,0,0,7,2,7,7,2,3,3,3,3,8,6,10,1,10,1,6,10,8,10,10,0,0,8,0,0,1,2,8,2,8,4,5,4,9,9,9,3,9,9,3,10,5,4,5,5,3,3,10,10,3,1,1,8,0,8,2,2,4,0,2,0,0,0,5,0,8,8,9,8,8,9,9,9,9,2,7,4,4,7,9,10,7,2,2,2,8,9,8,9,9,3,8,8,6,6,8,4,7,4,2),
            nrow=5, ncol=30)
 set.seed(8989)
 b<-bootstrap(comm.A,3)
  expect_equal(b[,,1], expected.b1) 
  expect_equal(b[,,2], expected.b2) 
  expect_equal(b[,,3], expected.b3) 
})