Last updated on 2022-09-11 12:56:15 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.2.0 | 31.31 | 305.57 | 336.88 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 0.2.0 | 29.24 | 225.91 | 255.15 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.2.0 | 428.34 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 0.2.0 | 412.66 | ERROR | |||
| r-devel-windows-x86_64 | 0.2.0 | 55.00 | 324.00 | 379.00 | ERROR | |
| r-patched-linux-x86_64 | 0.2.0 | 35.13 | 290.15 | 325.28 | ERROR | |
| r-release-linux-x86_64 | 0.2.0 | 35.06 | 295.13 | 330.19 | ERROR | |
| r-release-macos-arm64 | 0.2.0 | 149.00 | NOTE | |||
| r-release-macos-x86_64 | 0.2.0 | 295.00 | NOTE | |||
| r-release-windows-x86_64 | 0.2.0 | 64.00 | 308.00 | 372.00 | ERROR | |
| r-oldrel-macos-arm64 | 0.2.0 | 189.00 | NOTE | |||
| r-oldrel-macos-x86_64 | 0.2.0 | 303.00 | NOTE | |||
| r-oldrel-windows-ix86+x86_64 | 0.2.0 | 71.00 | 294.00 | 365.00 | ERROR |
Version: 0.2.0
Check: examples
Result: ERROR
Running examples in 'corncob-Ex.R' failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: HDIbetabinom
> ### Title: Get highest density interval of beta-binomial
> ### Aliases: HDIbetabinom
>
> ### ** Examples
>
> data(soil_phylum_small)
> mod <- bbdml(formula = OTU.1 ~ DayAmdmt,
+ phi.formula = ~ DayAmdmt,
+ data = soil_phylum_small)
Error in if (detectseparation::detect_separation(y = cbind(W, M - W), :
argument is of length zero
Calls: bbdml
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-x86_64
Version: 0.2.0
Check: tests
Result: ERROR
Running 'testthat.R' [16s/23s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(corncob)
>
> test_check("corncob")
[ FAIL 10 | WARN 0 | SKIP 0 | PASS 17 ]
== Failed tests ================================================================
-- Error (test_bbdml.R:32:1): (code run outside of `test_that()`) --------------
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
x
1. \-corncob::bbdml(...) at test_bbdml.R:32:0
-- Error (test_differentialTest.R:11:1): (code run outside of `test_that()`) ---
Error in `differentialTest(formula = ~Plants + DayAmdmt, phi.formula = ~Plants +
DayAmdmt, formula_null = ~1, phi.formula_null = ~1, data = subsoil,
boot = FALSE, test = "LRT", inits = rbind(rep(0.01, 6)),
inits_null = rbind(rep(0.01, 2)))`: All models failed to converge!
If you are seeing this, it is likely that your model is overspecified. This occurs when your sample size is not large enough to estimate all the parameters of your model. This is most commonly due to categorical variables that include many categories.
Alternatively, double-check your values for the arguments `link`, `phi.link`, and `method` to makes sure that they follow the specified options.
To confirm you have fixed the issue, try running a model for a single taxon with bbdml.
Backtrace:
x
1. \-corncob::differentialTest(...) at test_differentialTest.R:11:0
-- Error (test_getRestrictionTerms.R:12:1): (code run outside of `test_that()`) --
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
x
1. \-corncob::bbdml(...) at test_getRestrictionTerms.R:12:0
-- Error (test_lrtest.R:19:1): (code run outside of `test_that()`) -------------
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
x
1. \-corncob::bbdml(...) at test_lrtest.R:19:0
-- Error (test_pb.R:14:1): (code run outside of `test_that()`) -----------------
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
x
1. \-corncob::bbdml(...) at test_pb.R:14:0
-- Error (test_s3.R:12:1): (code run outside of `test_that()`) -----------------
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
x
1. \-corncob::bbdml(...) at test_s3.R:12:0
-- Error (test_sandwich.R:12:1): (code run outside of `test_that()`) -----------
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
x
1. \-corncob::bbdml(...) at test_sandwich.R:12:0
-- Error (test_scorehessian.R:12:1): (code run outside of `test_that()`) -------
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
x
1. \-corncob::bbdml(...) at test_scorehessian.R:12:0
-- Error (test_simulate.R:12:1): (code run outside of `test_that()`) -----------
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
x
1. \-corncob::bbdml(...) at test_simulate.R:12:0
-- Error (test_waldtest.R:18:1): (code run outside of `test_that()`) -----------
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
x
1. \-corncob::bbdml(...) at test_waldtest.R:18:0
[ FAIL 10 | WARN 0 | SKIP 0 | PASS 17 ]
Error: Test failures
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.2.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [13s/20s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(corncob)
>
> test_check("corncob")
[ FAIL 10 | WARN 0 | SKIP 0 | PASS 17 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error (test_bbdml.R:32:1): (code run outside of `test_that()`) ──────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_bbdml.R:32:0
── Error (test_differentialTest.R:11:1): (code run outside of `test_that()`) ───
Error in `differentialTest(formula = ~Plants + DayAmdmt, phi.formula = ~Plants +
DayAmdmt, formula_null = ~1, phi.formula_null = ~1, data = subsoil,
boot = FALSE, test = "LRT", inits = rbind(rep(0.01, 6)),
inits_null = rbind(rep(0.01, 2)))`: All models failed to converge!
If you are seeing this, it is likely that your model is overspecified. This occurs when your sample size is not large enough to estimate all the parameters of your model. This is most commonly due to categorical variables that include many categories.
Alternatively, double-check your values for the arguments `link`, `phi.link`, and `method` to makes sure that they follow the specified options.
To confirm you have fixed the issue, try running a model for a single taxon with bbdml.
Backtrace:
▆
1. └─corncob::differentialTest(...) at test_differentialTest.R:11:0
── Error (test_getRestrictionTerms.R:12:1): (code run outside of `test_that()`) ──
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_getRestrictionTerms.R:12:0
── Error (test_lrtest.R:19:1): (code run outside of `test_that()`) ─────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_lrtest.R:19:0
── Error (test_pb.R:14:1): (code run outside of `test_that()`) ─────────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_pb.R:14:0
── Error (test_s3.R:12:1): (code run outside of `test_that()`) ─────────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_s3.R:12:0
── Error (test_sandwich.R:12:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_sandwich.R:12:0
── Error (test_scorehessian.R:12:1): (code run outside of `test_that()`) ───────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_scorehessian.R:12:0
── Error (test_simulate.R:12:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_simulate.R:12:0
── Error (test_waldtest.R:18:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_waldtest.R:18:0
[ FAIL 10 | WARN 0 | SKIP 0 | PASS 17 ]
Error: Test failures
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.2.0
Check: dependencies in R code
Result: NOTE
Namespaces in Imports field not imported from:
‘Matrix’ ‘rmutil’
All declared Imports should be used.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-release-macos-arm64, r-release-macos-x86_64, r-oldrel-macos-arm64, r-oldrel-macos-x86_64
Version: 0.2.0
Check: examples
Result: ERROR
Running examples in ‘corncob-Ex.R’ failed
The error most likely occurred in:
> ### Name: HDIbetabinom
> ### Title: Get highest density interval of beta-binomial
> ### Aliases: HDIbetabinom
>
> ### ** Examples
>
> data(soil_phylum_small)
> mod <- bbdml(formula = OTU.1 ~ DayAmdmt,
+ phi.formula = ~ DayAmdmt,
+ data = soil_phylum_small)
Error in if (detectseparation::detect_separation(y = cbind(W, M - W), :
argument is of length zero
Calls: bbdml
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-x86_64, r-release-windows-x86_64, r-oldrel-windows-ix86+x86_64
Version: 0.2.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [20s/28s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(corncob)
>
> test_check("corncob")
[ FAIL 10 | WARN 0 | SKIP 0 | PASS 17 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error (test_bbdml.R:32:1): (code run outside of `test_that()`) ──────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_bbdml.R:32:0
── Error (test_differentialTest.R:11:1): (code run outside of `test_that()`) ───
Error in `differentialTest(formula = ~Plants + DayAmdmt, phi.formula = ~Plants +
DayAmdmt, formula_null = ~1, phi.formula_null = ~1, data = subsoil,
boot = FALSE, test = "LRT", inits = rbind(rep(0.01, 6)),
inits_null = rbind(rep(0.01, 2)))`: All models failed to converge!
If you are seeing this, it is likely that your model is overspecified. This occurs when your sample size is not large enough to estimate all the parameters of your model. This is most commonly due to categorical variables that include many categories.
Alternatively, double-check your values for the arguments `link`, `phi.link`, and `method` to makes sure that they follow the specified options.
To confirm you have fixed the issue, try running a model for a single taxon with bbdml.
Backtrace:
▆
1. └─corncob::differentialTest(...) at test_differentialTest.R:11:0
── Error (test_getRestrictionTerms.R:12:1): (code run outside of `test_that()`) ──
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_getRestrictionTerms.R:12:0
── Error (test_lrtest.R:19:1): (code run outside of `test_that()`) ─────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_lrtest.R:19:0
── Error (test_pb.R:14:1): (code run outside of `test_that()`) ─────────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_pb.R:14:0
── Error (test_s3.R:12:1): (code run outside of `test_that()`) ─────────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_s3.R:12:0
── Error (test_sandwich.R:12:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_sandwich.R:12:0
── Error (test_scorehessian.R:12:1): (code run outside of `test_that()`) ───────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_scorehessian.R:12:0
── Error (test_simulate.R:12:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_simulate.R:12:0
── Error (test_waldtest.R:18:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_waldtest.R:18:0
[ FAIL 10 | WARN 0 | SKIP 0 | PASS 17 ]
Error: Test failures
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.2.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [20s/24s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(corncob)
>
> test_check("corncob")
[ FAIL 10 | WARN 0 | SKIP 0 | PASS 17 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error (test_bbdml.R:32:1): (code run outside of `test_that()`) ──────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_bbdml.R:32:0
── Error (test_differentialTest.R:11:1): (code run outside of `test_that()`) ───
Error in `differentialTest(formula = ~Plants + DayAmdmt, phi.formula = ~Plants +
DayAmdmt, formula_null = ~1, phi.formula_null = ~1, data = subsoil,
boot = FALSE, test = "LRT", inits = rbind(rep(0.01, 6)),
inits_null = rbind(rep(0.01, 2)))`: All models failed to converge!
If you are seeing this, it is likely that your model is overspecified. This occurs when your sample size is not large enough to estimate all the parameters of your model. This is most commonly due to categorical variables that include many categories.
Alternatively, double-check your values for the arguments `link`, `phi.link`, and `method` to makes sure that they follow the specified options.
To confirm you have fixed the issue, try running a model for a single taxon with bbdml.
Backtrace:
▆
1. └─corncob::differentialTest(...) at test_differentialTest.R:11:0
── Error (test_getRestrictionTerms.R:12:1): (code run outside of `test_that()`) ──
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_getRestrictionTerms.R:12:0
── Error (test_lrtest.R:19:1): (code run outside of `test_that()`) ─────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_lrtest.R:19:0
── Error (test_pb.R:14:1): (code run outside of `test_that()`) ─────────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_pb.R:14:0
── Error (test_s3.R:12:1): (code run outside of `test_that()`) ─────────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_s3.R:12:0
── Error (test_sandwich.R:12:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_sandwich.R:12:0
── Error (test_scorehessian.R:12:1): (code run outside of `test_that()`) ───────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_scorehessian.R:12:0
── Error (test_simulate.R:12:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_simulate.R:12:0
── Error (test_waldtest.R:18:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_waldtest.R:18:0
[ FAIL 10 | WARN 0 | SKIP 0 | PASS 17 ]
Error: Test failures
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 0.2.0
Check: tests
Result: ERROR
Running 'testthat.R' [19s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(corncob)
>
> test_check("corncob")
[ FAIL 10 | WARN 0 | SKIP 0 | PASS 17 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error (test_bbdml.R:32:1): (code run outside of `test_that()`) ──────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_bbdml.R:32:0
── Error (test_differentialTest.R:11:1): (code run outside of `test_that()`) ───
Error in `differentialTest(formula = ~Plants + DayAmdmt, phi.formula = ~Plants +
DayAmdmt, formula_null = ~1, phi.formula_null = ~1, data = subsoil,
boot = FALSE, test = "LRT", inits = rbind(rep(0.01, 6)),
inits_null = rbind(rep(0.01, 2)))`: All models failed to converge!
If you are seeing this, it is likely that your model is overspecified. This occurs when your sample size is not large enough to estimate all the parameters of your model. This is most commonly due to categorical variables that include many categories.
Alternatively, double-check your values for the arguments `link`, `phi.link`, and `method` to makes sure that they follow the specified options.
To confirm you have fixed the issue, try running a model for a single taxon with bbdml.
Backtrace:
▆
1. └─corncob::differentialTest(...) at test_differentialTest.R:11:0
── Error (test_getRestrictionTerms.R:12:1): (code run outside of `test_that()`) ──
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_getRestrictionTerms.R:12:0
── Error (test_lrtest.R:19:1): (code run outside of `test_that()`) ─────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_lrtest.R:19:0
── Error (test_pb.R:14:1): (code run outside of `test_that()`) ─────────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_pb.R:14:0
── Error (test_s3.R:12:1): (code run outside of `test_that()`) ─────────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_s3.R:12:0
── Error (test_sandwich.R:12:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_sandwich.R:12:0
── Error (test_scorehessian.R:12:1): (code run outside of `test_that()`) ───────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_scorehessian.R:12:0
── Error (test_simulate.R:12:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_simulate.R:12:0
── Error (test_waldtest.R:18:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_waldtest.R:18:0
[ FAIL 10 | WARN 0 | SKIP 0 | PASS 17 ]
Error: Test failures
Execution halted
Flavor: r-devel-windows-x86_64
Version: 0.2.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [16s/20s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(corncob)
>
> test_check("corncob")
[ FAIL 10 | WARN 0 | SKIP 0 | PASS 17 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error (test_bbdml.R:32:1): (code run outside of `test_that()`) ──────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_bbdml.R:32:0
── Error (test_differentialTest.R:11:1): (code run outside of `test_that()`) ───
Error in `differentialTest(formula = ~Plants + DayAmdmt, phi.formula = ~Plants +
DayAmdmt, formula_null = ~1, phi.formula_null = ~1, data = subsoil,
boot = FALSE, test = "LRT", inits = rbind(rep(0.01, 6)),
inits_null = rbind(rep(0.01, 2)))`: All models failed to converge!
If you are seeing this, it is likely that your model is overspecified. This occurs when your sample size is not large enough to estimate all the parameters of your model. This is most commonly due to categorical variables that include many categories.
Alternatively, double-check your values for the arguments `link`, `phi.link`, and `method` to makes sure that they follow the specified options.
To confirm you have fixed the issue, try running a model for a single taxon with bbdml.
Backtrace:
▆
1. └─corncob::differentialTest(...) at test_differentialTest.R:11:0
── Error (test_getRestrictionTerms.R:12:1): (code run outside of `test_that()`) ──
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_getRestrictionTerms.R:12:0
── Error (test_lrtest.R:19:1): (code run outside of `test_that()`) ─────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_lrtest.R:19:0
── Error (test_pb.R:14:1): (code run outside of `test_that()`) ─────────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_pb.R:14:0
── Error (test_s3.R:12:1): (code run outside of `test_that()`) ─────────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_s3.R:12:0
── Error (test_sandwich.R:12:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_sandwich.R:12:0
── Error (test_scorehessian.R:12:1): (code run outside of `test_that()`) ───────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_scorehessian.R:12:0
── Error (test_simulate.R:12:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_simulate.R:12:0
── Error (test_waldtest.R:18:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_waldtest.R:18:0
[ FAIL 10 | WARN 0 | SKIP 0 | PASS 17 ]
Error: Test failures
Execution halted
Flavor: r-patched-linux-x86_64
Version: 0.2.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [16s/21s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(corncob)
>
> test_check("corncob")
[ FAIL 10 | WARN 0 | SKIP 0 | PASS 17 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error (test_bbdml.R:32:1): (code run outside of `test_that()`) ──────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_bbdml.R:32:0
── Error (test_differentialTest.R:11:1): (code run outside of `test_that()`) ───
Error in `differentialTest(formula = ~Plants + DayAmdmt, phi.formula = ~Plants +
DayAmdmt, formula_null = ~1, phi.formula_null = ~1, data = subsoil,
boot = FALSE, test = "LRT", inits = rbind(rep(0.01, 6)),
inits_null = rbind(rep(0.01, 2)))`: All models failed to converge!
If you are seeing this, it is likely that your model is overspecified. This occurs when your sample size is not large enough to estimate all the parameters of your model. This is most commonly due to categorical variables that include many categories.
Alternatively, double-check your values for the arguments `link`, `phi.link`, and `method` to makes sure that they follow the specified options.
To confirm you have fixed the issue, try running a model for a single taxon with bbdml.
Backtrace:
▆
1. └─corncob::differentialTest(...) at test_differentialTest.R:11:0
── Error (test_getRestrictionTerms.R:12:1): (code run outside of `test_that()`) ──
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_getRestrictionTerms.R:12:0
── Error (test_lrtest.R:19:1): (code run outside of `test_that()`) ─────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_lrtest.R:19:0
── Error (test_pb.R:14:1): (code run outside of `test_that()`) ─────────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_pb.R:14:0
── Error (test_s3.R:12:1): (code run outside of `test_that()`) ─────────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_s3.R:12:0
── Error (test_sandwich.R:12:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_sandwich.R:12:0
── Error (test_scorehessian.R:12:1): (code run outside of `test_that()`) ───────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_scorehessian.R:12:0
── Error (test_simulate.R:12:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_simulate.R:12:0
── Error (test_waldtest.R:18:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_waldtest.R:18:0
[ FAIL 10 | WARN 0 | SKIP 0 | PASS 17 ]
Error: Test failures
Execution halted
Flavor: r-release-linux-x86_64
Version: 0.2.0
Check: tests
Result: ERROR
Running 'testthat.R' [16s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(corncob)
>
> test_check("corncob")
[ FAIL 10 | WARN 0 | SKIP 0 | PASS 17 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error (test_bbdml.R:32:1): (code run outside of `test_that()`) ──────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_bbdml.R:32:0
── Error (test_differentialTest.R:11:1): (code run outside of `test_that()`) ───
Error in `differentialTest(formula = ~Plants + DayAmdmt, phi.formula = ~Plants +
DayAmdmt, formula_null = ~1, phi.formula_null = ~1, data = subsoil,
boot = FALSE, test = "LRT", inits = rbind(rep(0.01, 6)),
inits_null = rbind(rep(0.01, 2)))`: All models failed to converge!
If you are seeing this, it is likely that your model is overspecified. This occurs when your sample size is not large enough to estimate all the parameters of your model. This is most commonly due to categorical variables that include many categories.
Alternatively, double-check your values for the arguments `link`, `phi.link`, and `method` to makes sure that they follow the specified options.
To confirm you have fixed the issue, try running a model for a single taxon with bbdml.
Backtrace:
▆
1. └─corncob::differentialTest(...) at test_differentialTest.R:11:0
── Error (test_getRestrictionTerms.R:12:1): (code run outside of `test_that()`) ──
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_getRestrictionTerms.R:12:0
── Error (test_lrtest.R:19:1): (code run outside of `test_that()`) ─────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_lrtest.R:19:0
── Error (test_pb.R:14:1): (code run outside of `test_that()`) ─────────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_pb.R:14:0
── Error (test_s3.R:12:1): (code run outside of `test_that()`) ─────────────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_s3.R:12:0
── Error (test_sandwich.R:12:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_sandwich.R:12:0
── Error (test_scorehessian.R:12:1): (code run outside of `test_that()`) ───────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_scorehessian.R:12:0
── Error (test_simulate.R:12:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_simulate.R:12:0
── Error (test_waldtest.R:18:1): (code run outside of `test_that()`) ───────────
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
▆
1. └─corncob::bbdml(...) at test_waldtest.R:18:0
[ FAIL 10 | WARN 0 | SKIP 0 | PASS 17 ]
Error: Test failures
Execution halted
Flavor: r-release-windows-x86_64
Version: 0.2.0
Check: tests
Result: ERROR
Running 'testthat.R' [17s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(corncob)
>
> test_check("corncob")
[ FAIL 10 | WARN 0 | SKIP 0 | PASS 17 ]
== Failed tests ================================================================
-- Error (test_bbdml.R:32:1): (code run outside of `test_that()`) --------------
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
x
1. \-corncob::bbdml(...) at test_bbdml.R:32:0
-- Error (test_differentialTest.R:11:1): (code run outside of `test_that()`) ---
Error in `differentialTest(formula = ~Plants + DayAmdmt, phi.formula = ~Plants +
DayAmdmt, formula_null = ~1, phi.formula_null = ~1, data = subsoil,
boot = FALSE, test = "LRT", inits = rbind(rep(0.01, 6)),
inits_null = rbind(rep(0.01, 2)))`: All models failed to converge!
If you are seeing this, it is likely that your model is overspecified. This occurs when your sample size is not large enough to estimate all the parameters of your model. This is most commonly due to categorical variables that include many categories.
Alternatively, double-check your values for the arguments `link`, `phi.link`, and `method` to makes sure that they follow the specified options.
To confirm you have fixed the issue, try running a model for a single taxon with bbdml.
Backtrace:
x
1. \-corncob::differentialTest(...) at test_differentialTest.R:11:0
-- Error (test_getRestrictionTerms.R:12:1): (code run outside of `test_that()`) --
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
x
1. \-corncob::bbdml(...) at test_getRestrictionTerms.R:12:0
-- Error (test_lrtest.R:19:1): (code run outside of `test_that()`) -------------
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
x
1. \-corncob::bbdml(...) at test_lrtest.R:19:0
-- Error (test_pb.R:14:1): (code run outside of `test_that()`) -----------------
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
x
1. \-corncob::bbdml(...) at test_pb.R:14:0
-- Error (test_s3.R:12:1): (code run outside of `test_that()`) -----------------
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
x
1. \-corncob::bbdml(...) at test_s3.R:12:0
-- Error (test_sandwich.R:12:1): (code run outside of `test_that()`) -----------
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
x
1. \-corncob::bbdml(...) at test_sandwich.R:12:0
-- Error (test_scorehessian.R:12:1): (code run outside of `test_that()`) -------
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
x
1. \-corncob::bbdml(...) at test_scorehessian.R:12:0
-- Error (test_simulate.R:12:1): (code run outside of `test_that()`) -----------
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
x
1. \-corncob::bbdml(...) at test_simulate.R:12:0
-- Error (test_waldtest.R:18:1): (code run outside of `test_that()`) -----------
Error in `if (detectseparation::detect_separation(y = cbind(W, M - W),
x = X.b, family = stats::binomial("logit"), control = list(purpose = "test"))$separation) {
warning(paste("Separation detected in abundance model!",
"Likely, one of your covariates/experimental conditions is such that",
"there are all zero counts within a group. Consider identifying and removing",
"this covariate from your model. The results of this model are not to be",
"trusted because there is not enough data. \n", sep = "\n"),
immediate. = TRUE)
sep_da <- TRUE
}`: argument is of length zero
Backtrace:
x
1. \-corncob::bbdml(...) at test_waldtest.R:18:0
[ FAIL 10 | WARN 0 | SKIP 0 | PASS 17 ]
Error: Test failures
Execution halted
Flavor: r-oldrel-windows-ix86+x86_64