Running ‘testthat.R’ [4s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(inbreedR)
  > 
  > test_check("inbreedR")
  
   starting het-het correlations
   5 iterations done
   10 iterations done
   15 iterations done
   20 iterations done
   25 iterations done
   30 iterations done
   35 iterations done
   40 iterations done
   45 iterations done
   50 iterations done
   55 iterations done
   60 iterations done
   65 iterations done
   70 iterations done
   75 iterations done
   80 iterations done
   85 iterations done
   90 iterations done
   95 iterations done
   done
   ### bootstrapping finished, hell yeah!! ###
   5 bootstraps done
   10 bootstraps done
   15 bootstraps done
   ### bootstrapping finished ###
   ### permutations finished ###
   5 permutations done
   10 permutations done
   15 permutations done
   ### permutations finished ###
   5 bootstraps over individuals done
   10 bootstraps over individuals done
   ### bootstrapping over individuals finished! ###
   5 bootstraps over individuals done
   10 bootstraps over individuals done
   ### bootstrapping over individuals finished! ###
   5 bootstraps over individuals done
   10 bootstraps over individuals done
   ### bootstrapping over individuals finished! ###
   5 bootstraps over individuals done
   10 bootstraps over individuals done
   ### bootstrapping over individuals finished! ###
   ### bootstrapping over individuals finished! ###
   ### bootstrapping over individuals finished! ###
   ### bootstrapping over individuals finished! ###
   ### bootstrapping over individuals finished! ###[1] "done with subsampling of 2 loci"
  [1] "done with subsampling of 4 loci"
  [1] "done with subsampling of 2 loci"
  [1] "done with subsampling of 4 loci"
  [1] "done with subsampling of 2 loci"
  [1] "done with subsampling of 4 loci"
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-simulate_r2_hf.R:8:5): r2 results matrix is computed ────────────
  Error in `if (g2 < 0) return(r2 <- 0)`: missing value where TRUE/FALSE needed
  Backtrace:
      █
   1. ├─testthat::expect_equal(...) test-simulate_r2_hf.R:8:4
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─inbreedR::simulate_r2_hf(...)
   5.   └─inbreedR::r2_hf(genotypes = theseGenos, type = type)
   6.     └─inbreedR:::calc_r2(gtypes)
  
  [ FAIL 1 | WARN 0 | SKIP 0 | PASS 48 ]
  Error: Test failures
  Execution halted