Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [6s/8s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(VC2copula)
  Loading required package: copula
  > 
  > test_check("VC2copula")
  [1] "The BB6 or survival BB6 copula cannot be used for negatively dependent data."
  [1] "The rotated BB6 copulas cannot be used for positively dependent data."
  [1] "The rotated BB7 copulas cannot be used for positively dependent data."
  [1] "The BB8 or survival BB8 copula cannot be used for negatively dependent data."
  [1] "The rotated BB8 copulas cannot be used for positively dependent data."
  [ FAIL 44 | WARN 0 | SKIP 0 | PASS 81 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model surBB1Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model r90BB1Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model r270BB1Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model BB6Copula works ─────
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model surBB6Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model r90BB6Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model r270BB6Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model BB7Copula works ─────
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model surBB7Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model r90BB7Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model r270BB7Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model BB8Copula works ─────
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model surBB8Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model r90BB8Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model r270BB8Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model surClaytonCopula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─VC2copula::surClaytonCopula(par[1])
   15.               └─methods::new(...)
   16.                 ├─methods::initialize(value, ...)
   17.                 └─methods::initialize(value, ...)
   18.                   └─methods::validObject(.Object)
   19.                     ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   20.                     │ └─base::isTRUE(x)
   21.                     ├─copula (local) validityMethod(as(object, superClass))
   22.                     └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model r90ClaytonCopula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─VC2copula::r90ClaytonCopula(par[1])
   15.               └─methods::new(...)
   16.                 ├─methods::initialize(value, ...)
   17.                 └─methods::initialize(value, ...)
   18.                   └─methods::validObject(.Object)
   19.                     ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   20.                     │ └─base::isTRUE(x)
   21.                     ├─copula (local) validityMethod(as(object, superClass))
   22.                     └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model r270ClaytonCopula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─VC2copula::r270ClaytonCopula(par[1])
   15.               └─methods::new(...)
   16.                 ├─methods::initialize(value, ...)
   17.                 └─methods::initialize(value, ...)
   18.                   └─methods::validObject(.Object)
   19.                     ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   20.                     │ └─base::isTRUE(x)
   21.                     ├─copula (local) validityMethod(as(object, superClass))
   22.                     └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model surGumbelCopula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─VC2copula::surGumbelCopula(par[1])
   15.               └─methods::new(...)
   16.                 ├─methods::initialize(value, ...)
   17.                 └─methods::initialize(value, ...)
   18.                   └─methods::validObject(.Object)
   19.                     ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   20.                     │ └─base::isTRUE(x)
   21.                     ├─copula (local) validityMethod(as(object, superClass))
   22.                     └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model r90GumbelCopula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─VC2copula::r90GumbelCopula(par[1])
   15.               └─methods::new(...)
   16.                 ├─methods::initialize(value, ...)
   17.                 └─methods::initialize(value, ...)
   18.                   └─methods::validObject(.Object)
   19.                     ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   20.                     │ └─base::isTRUE(x)
   21.                     ├─copula (local) validityMethod(as(object, superClass))
   22.                     └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model r270GumbelCopula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─VC2copula::r270GumbelCopula(par[1])
   15.               └─methods::new(...)
   16.                 ├─methods::initialize(value, ...)
   17.                 └─methods::initialize(value, ...)
   18.                   └─methods::validObject(.Object)
   19.                     ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   20.                     │ └─base::isTRUE(x)
   21.                     ├─copula (local) validityMethod(as(object, superClass))
   22.                     └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model joeBiCopula works ───
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─VC2copula::joeBiCopula(par[1])
   15.               └─methods::new(...)
   16.                 ├─methods::initialize(value, ...)
   17.                 └─methods::initialize(value, ...)
   18.                   └─methods::validObject(.Object)
   19.                     ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   20.                     │ └─base::isTRUE(x)
   21.                     ├─copula (local) validityMethod(as(object, superClass))
   22.                     └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model surJoeBiCopula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─VC2copula::surJoeBiCopula(par[1])
   15.               └─methods::new(...)
   16.                 ├─methods::initialize(value, ...)
   17.                 └─methods::initialize(value, ...)
   18.                   └─methods::validObject(.Object)
   19.                     ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   20.                     │ └─base::isTRUE(x)
   21.                     ├─copula (local) validityMethod(as(object, superClass))
   22.                     └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model r90JoeBiCopula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─VC2copula::r90JoeBiCopula(par[1])
   15.               └─methods::new(...)
   16.                 ├─methods::initialize(value, ...)
   17.                 └─methods::initialize(value, ...)
   18.                   └─methods::validObject(.Object)
   19.                     ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   20.                     │ └─base::isTRUE(x)
   21.                     ├─copula (local) validityMethod(as(object, superClass))
   22.                     └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model r270JoeBiCopula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─VC2copula::r270JoeBiCopula(par[1])
   15.               └─methods::new(...)
   16.                 ├─methods::initialize(value, ...)
   17.                 └─methods::initialize(value, ...)
   18.                   └─methods::validObject(.Object)
   19.                     ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   20.                     │ └─base::isTRUE(x)
   21.                     ├─copula (local) validityMethod(as(object, superClass))
   22.                     └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model tawnT1Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model surTawnT1Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model r90TawnT1Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model r270TawnT1Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model tawnT2Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model surTawnT2Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model r90TawnT2Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error ('test-bivariate-models.R:23:5'): Bivariate model r270TawnT2Copula works ──
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_true(class(fitCopula(cop, u)@copula) == model) at test-bivariate-models.R:23:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─copula::fitCopula(cop, u)
    5. └─VC2copula (local) fitCopula(cop, u)
    6.   └─VC2copula (local) .local(copula, data, ...)
    7.     ├─methods::new(...)
    8.     │ ├─methods::initialize(value, ...)
    9.     │ └─methods::initialize(value, ...)
   10.     └─VC2copula::BiCop2copula(BCestimate)
   11.       └─VC2copula::BiCop2copula(family$family, family$par, family$par2)
   12.         └─VC2copula::copulaFromFamilyIndex(family, par, par2)
   13.           └─VC2copula (local) constr(c(par, par2))
   14.             └─methods::new(...)
   15.               ├─methods::initialize(value, ...)
   16.               └─methods::initialize(value, ...)
   17.                 └─methods::validObject(.Object)
   18.                   ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   19.                   │ └─base::isTRUE(x)
   20.                   ├─copula (local) validityMethod(as(object, superClass))
   21.                   └─methods::as(object, superClass)
  ── Error (???): Bivariate model surClaytonCopula works ─────────────────────────
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
      ▆
   1. └─VC2copula::surClaytonCopula()
   2.   └─methods::new(...)
   3.     ├─methods::initialize(value, ...)
   4.     └─methods::initialize(value, ...)
   5.       └─methods::validObject(.Object)
   6.         ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   7.         │ └─base::isTRUE(x)
   8.         ├─copula (local) validityMethod(as(object, superClass))
   9.         └─methods::as(object, superClass)
  ── Error (???): Bivariate model surGumbelCopula works ──────────────────────────
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
      ▆
   1. └─VC2copula::surGumbelCopula()
   2.   └─methods::new(...)
   3.     ├─methods::initialize(value, ...)
   4.     └─methods::initialize(value, ...)
   5.       └─methods::validObject(.Object)
   6.         ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   7.         │ └─base::isTRUE(x)
   8.         ├─copula (local) validityMethod(as(object, superClass))
   9.         └─methods::as(object, superClass)
  ── Error (???): Bivariate model joeBiCopula works ──────────────────────────────
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
      ▆
   1. └─VC2copula::joeBiCopula()
   2.   └─methods::new(...)
   3.     ├─methods::initialize(value, ...)
   4.     └─methods::initialize(value, ...)
   5.       └─methods::validObject(.Object)
   6.         ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   7.         │ └─base::isTRUE(x)
   8.         ├─copula (local) validityMethod(as(object, superClass))
   9.         └─methods::as(object, superClass)
  ── Error (???): Bivariate model surJoeBiCopula works ───────────────────────────
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
      ▆
   1. └─VC2copula::surJoeBiCopula()
   2.   └─methods::new(...)
   3.     ├─methods::initialize(value, ...)
   4.     └─methods::initialize(value, ...)
   5.       └─methods::validObject(.Object)
   6.         ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   7.         │ └─base::isTRUE(x)
   8.         ├─copula (local) validityMethod(as(object, superClass))
   9.         └─methods::as(object, superClass)
  ── Error (???): Bivariate model r90ClaytonCopula works ─────────────────────────
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
      ▆
   1. └─VC2copula::r90ClaytonCopula()
   2.   └─methods::new(...)
   3.     ├─methods::initialize(value, ...)
   4.     └─methods::initialize(value, ...)
   5.       └─methods::validObject(.Object)
   6.         ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   7.         │ └─base::isTRUE(x)
   8.         ├─copula (local) validityMethod(as(object, superClass))
   9.         └─methods::as(object, superClass)
  ── Error (???): Bivariate model r270ClaytonCopula works ────────────────────────
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
      ▆
   1. └─VC2copula::r270ClaytonCopula()
   2.   └─methods::new(...)
   3.     ├─methods::initialize(value, ...)
   4.     └─methods::initialize(value, ...)
   5.       └─methods::validObject(.Object)
   6.         ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   7.         │ └─base::isTRUE(x)
   8.         ├─copula (local) validityMethod(as(object, superClass))
   9.         └─methods::as(object, superClass)
  ── Error (???): Bivariate model r90GumbelCopula works ──────────────────────────
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
      ▆
   1. └─VC2copula::r90GumbelCopula()
   2.   └─methods::new(...)
   3.     ├─methods::initialize(value, ...)
   4.     └─methods::initialize(value, ...)
   5.       └─methods::validObject(.Object)
   6.         ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   7.         │ └─base::isTRUE(x)
   8.         ├─copula (local) validityMethod(as(object, superClass))
   9.         └─methods::as(object, superClass)
  ── Error (???): Bivariate model r270GumbelCopula works ─────────────────────────
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
      ▆
   1. └─VC2copula::r270GumbelCopula()
   2.   └─methods::new(...)
   3.     ├─methods::initialize(value, ...)
   4.     └─methods::initialize(value, ...)
   5.       └─methods::validObject(.Object)
   6.         ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   7.         │ └─base::isTRUE(x)
   8.         ├─copula (local) validityMethod(as(object, superClass))
   9.         └─methods::as(object, superClass)
  ── Error (???): Bivariate model r90JoeBiCopula works ───────────────────────────
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
      ▆
   1. └─VC2copula::r90JoeBiCopula()
   2.   └─methods::new(...)
   3.     ├─methods::initialize(value, ...)
   4.     └─methods::initialize(value, ...)
   5.       └─methods::validObject(.Object)
   6.         ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   7.         │ └─base::isTRUE(x)
   8.         ├─copula (local) validityMethod(as(object, superClass))
   9.         └─methods::as(object, superClass)
  ── Error (???): Bivariate model r270JoeBiCopula works ──────────────────────────
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
      ▆
   1. └─VC2copula::r270JoeBiCopula()
   2.   └─methods::new(...)
   3.     ├─methods::initialize(value, ...)
   4.     └─methods::initialize(value, ...)
   5.       └─methods::validObject(.Object)
   6.         ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   7.         │ └─base::isTRUE(x)
   8.         ├─copula (local) validityMethod(as(object, superClass))
   9.         └─methods::as(object, superClass)
  ── Error ('test-vine-models.R:4:3'): Vine copula models work ───────────────────
  Error in `asMethod(object)`: could not find function "asMethod"
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(cop <- vineCopula(as.integer(3), type = "DVine")) at test-vine-models.R:4:2
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. └─VC2copula::vineCopula(as.integer(3), type = "DVine")
   10.   └─methods::new(...)
   11.     ├─methods::initialize(value, ...)
   12.     └─methods::initialize(value, ...)
   13.       └─methods::validObject(.Object)
   14.         ├─methods (local) anyStrings(validityMethod(as(object, superClass)))
   15.         │ └─base::isTRUE(x)
   16.         ├─copula (local) validityMethod(as(object, superClass))
   17.         └─methods::as(object, superClass)
  
  [ FAIL 44 | WARN 0 | SKIP 0 | PASS 81 ]
  Error: Test failures
  Execution halted