Delete test-computestats.R

tests/testthat/test-computestats.R

-set.seed(12081238) 
-base_data <- matrix(rnorm(2000), nrow = 100, ncol = 200)
-group1 <- replicate(20, sample(1:100, 50, replace = FALSE))
-group2 <- replicate(20, sample(101:200, 50, replace = FALSE))
-conditions <- factor(rep(c(1, 2), each = 20))
-trees <- apply(cbind(group1, group2), 2, function(asample) {
-  samples <- base_data[, asample]
-  out <- hclust(dist(samples), method = "ward.D2")
-  return(out)
-})
-trees1 <- trees[1:20]
-trees2 <- trees[21:40]
-
-test_that("'compute_stats' works for simple cases", {
-  res <- compute_stats(trees1, trees2)
-  
-  expect_named(res, c("conditions", "cophenetics", "truncated_cophenetics",
-                      "truncated_indices", "numerator", "variances"))
-  
-  expect_equal(length(res$numerator), length(res$truncated_indices))
-})
\ No newline at end of file