Last updated on 2019-11-25 06:49:50 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 1.8.1 | 8.48 | 64.58 | 73.06 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 1.8.1 | 6.33 | 49.66 | 55.99 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 1.8.1 | 150.04 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 1.8.1 | 152.60 | ERROR | |||
| r-devel-windows-ix86+x86_64 | 1.8.1 | 28.00 | 223.00 | 251.00 | ERROR | |
| r-devel-windows-ix86+x86_64-gcc8 | 1.8.1 | 17.00 | 163.00 | 180.00 | OK | |
| r-patched-linux-x86_64 | 1.8.1 | 6.62 | 117.78 | 124.40 | OK | |
| r-patched-solaris-x86 | 1.8.1 | 194.50 | OK | |||
| r-release-linux-x86_64 | 1.8.1 | 7.63 | 124.52 | 132.15 | ERROR | |
| r-release-windows-ix86+x86_64 | 1.8.1 | 19.00 | 177.00 | 196.00 | OK | |
| r-release-osx-x86_64 | 1.8.1 | OK | ||||
| r-oldrel-windows-ix86+x86_64 | 1.8.1 | 9.00 | 227.00 | 236.00 | OK | |
| r-oldrel-osx-x86_64 | 1.8.1 | OK |
Version: 1.8.1
Check: examples
Result: ERROR
Running examples in 'MortalityLaws-Ex.R' failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: LawTable
> ### Title: Compute Life Tables from Parameters of a Mortality Law
> ### Aliases: LawTable
>
> ### ** Examples
>
> # Example 1 --- Makeham --- 4 tables ----------
> x1 = 45:100
> L1 = "makeham"
> C1 = matrix(c(0.00717, 0.07789, 0.00363,
+ 0.01018, 0.07229, 0.00001,
+ 0.00298, 0.09585, 0.00002,
+ 0.00067, 0.11572, 0.00078),
+ nrow = 4, dimnames = list(1:4, c("A", "B", "C")))
>
> LawTable(x = 45:100, par = C1, law = L1)
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
MortalityLaws
--- call from context ---
eval(substitute(expr), data, enclos = parent.frame())
--- call from argument ---
if (!(K$iclass %in% valid_classes)) {
stop(paste0("The class of the input should be: ", paste(valid_classes,
collapse = ", ")), call. = FALSE)
}
--- R stacktrace ---
where 1: eval(substitute(expr), data, enclos = parent.frame())
where 2: eval(substitute(expr), data, enclos = parent.frame())
where 3: with.default(input, {
K <- find.my.case(Dx, Ex, mx, qx, lx, dx)
C <- K$case
valid_classes <- c("numeric", "matrix", "data.frame", NULL)
if (!(K$iclass %in% valid_classes)) {
stop(paste0("The class of the input should be: ", paste(valid_classes,
collapse = ", ")), call. = FALSE)
}
SMS <- "contains missing values. These have been replaced with "
if (!is.null(sex)) {
if (!(sex %in% c("male", "female", "total")))
stop("'sex' should be: 'male', 'female', 'total' or 'NULL'.",
call. = FALSE)
}
if (C == "C1_DxEx") {
Dx[is.na(Dx)] <- 0
Ex[is.na(Ex) | Ex == 0] <- 0.01
if (any(is.na(Dx)))
warning("'Dx'", SMS, 0, call. = FALSE)
if (any(is.na(Ex)))
warning("'Ex'", SMS, 0.01, call. = FALSE)
}
if (C == "C2_mx") {
mx <- uxAbove100(x, mx)
}
if (C == "C3_qx") {
qx <- uxAbove100(x, qx)
}
if (C == "C4_lx") {
lx[is.na(lx) & x >= 100] <- 0
if (any(is.na(lx)))
warning("'lx'", SMS, 0, call. = FALSE)
}
if (C == "C5_dx") {
dx[is.na(dx)] <- 0
if (any(is.na(dx)))
warning("'dx'", SMS, 0, call. = FALSE)
}
if (!is.null(ax)) {
if (!is.numeric(ax))
stop("'ax' must be a numeric scalar (or NULL)", call. = FALSE)
if (!any(length(ax) %in% c(1, length(x))))
stop("'ax' must be a scalar of lenght 1 or a ", "vector of the same dimension as 'x'",
call. = FALSE)
}
out <- list(x = x, Dx = Dx, Ex = Ex, mx = mx, qx = qx, lx = lx,
dx = dx, sex = sex, lx0 = lx0, ax = ax, iclass = K$iclass,
nLT = K$nLT, LTnames = K$LTnames)
return(out)
})
where 4: with(input, {
K <- find.my.case(Dx, Ex, mx, qx, lx, dx)
C <- K$case
valid_classes <- c("numeric", "matrix", "data.frame", NULL)
if (!(K$iclass %in% valid_classes)) {
stop(paste0("The class of the input should be: ", paste(valid_classes,
collapse = ", ")), call. = FALSE)
}
SMS <- "contains missing values. These have been replaced with "
if (!is.null(sex)) {
if (!(sex %in% c("male", "female", "total")))
stop("'sex' should be: 'male', 'female', 'total' or 'NULL'.",
call. = FALSE)
}
if (C == "C1_DxEx") {
Dx[is.na(Dx)] <- 0
Ex[is.na(Ex) | Ex == 0] <- 0.01
if (any(is.na(Dx)))
warning("'Dx'", SMS, 0, call. = FALSE)
if (any(is.na(Ex)))
warning("'Ex'", SMS, 0.01, call. = FALSE)
}
if (C == "C2_mx") {
mx <- uxAbove100(x, mx)
}
if (C == "C3_qx") {
qx <- uxAbove100(x, qx)
}
if (C == "C4_lx") {
lx[is.na(lx) & x >= 100] <- 0
if (any(is.na(lx)))
warning("'lx'", SMS, 0, call. = FALSE)
}
if (C == "C5_dx") {
dx[is.na(dx)] <- 0
if (any(is.na(dx)))
warning("'dx'", SMS, 0, call. = FALSE)
}
if (!is.null(ax)) {
if (!is.numeric(ax))
stop("'ax' must be a numeric scalar (or NULL)", call. = FALSE)
if (!any(length(ax) %in% c(1, length(x))))
stop("'ax' must be a scalar of lenght 1 or a ", "vector of the same dimension as 'x'",
call. = FALSE)
}
out <- list(x = x, Dx = Dx, Ex = Ex, mx = mx, qx = qx, lx = lx,
dx = dx, sex = sex, lx0 = lx0, ax = ax, iclass = K$iclass,
nLT = K$nLT, LTnames = K$LTnames)
return(out)
})
where 5: LifeTable.check(input)
where 6: LifeTable(xx, mx = hx, sex = sex, lx0 = lx0, ax = ax)
where 7: LawTable(x = 45:100, par = C1, law = L1)
--- value of length: 2 type: logical ---
[1] FALSE TRUE
--- function from context ---
--- function search by body ---
----------- END OF FAILURE REPORT --------------
Fatal error: the condition has length > 1
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Version: 1.8.1
Check: tests
Result: ERROR
Running 'testthat.R' [3s/3s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> # --------------------------------------------------- #
> # Author: Marius D. Pascariu
> # License: MIT
> # Last update: Wed Jun 05 14:41:16 2019
> # --------------------------------------------------- #
>
> library(testthat)
> # expect_message(library(MortalityLaws))
>
> test_check("MortalityLaws")
Loading required package: MortalityLaws
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
MortalityLaws
--- call from context ---
eval(substitute(expr), data, enclos = parent.frame())
--- call from argument ---
if (!(K$iclass %in% valid_classes)) {
stop(paste0("The class of the input should be: ", paste(valid_classes,
collapse = ", ")), call. = FALSE)
}
--- R stacktrace ---
where 1: eval(substitute(expr), data, enclos = parent.frame())
where 2: eval(substitute(expr), data, enclos = parent.frame())
where 3: with.default(input, {
K <- find.my.case(Dx, Ex, mx, qx, lx, dx)
C <- K$case
valid_classes <- c("numeric", "matrix", "data.frame", NULL)
if (!(K$iclass %in% valid_classes)) {
stop(paste0("The class of the input should be: ", paste(valid_classes,
collapse = ", ")), call. = FALSE)
}
SMS <- "contains missing values. These have been replaced with "
if (!is.null(sex)) {
if (!(sex %in% c("male", "female", "total")))
stop("'sex' should be: 'male', 'female', 'total' or 'NULL'.",
call. = FALSE)
}
if (C == "C1_DxEx") {
Dx[is.na(Dx)] <- 0
Ex[is.na(Ex) | Ex == 0] <- 0.01
if (any(is.na(Dx)))
warning("'Dx'", SMS, 0, call. = FALSE)
if (any(is.na(Ex)))
warning("'Ex'", SMS, 0.01, call. = FALSE)
}
if (C == "C2_mx") {
mx <- uxAbove100(x, mx)
}
if (C == "C3_qx") {
qx <- uxAbove100(x, qx)
}
if (C == "C4_lx") {
lx[is.na(lx) & x >= 100] <- 0
if (any(is.na(lx)))
warning("'lx'", SMS, 0, call. = FALSE)
}
if (C == "C5_dx") {
dx[is.na(dx)] <- 0
if (any(is.na(dx)))
warning("'dx'", SMS, 0, call. = FALSE)
}
if (!is.null(ax)) {
if (!is.numeric(ax))
stop("'ax' must be a numeric scalar (or NULL)", call. = FALSE)
if (!any(length(ax) %in% c(1, length(x))))
stop("'ax' must be a scalar of lenght 1 or a ", "vector of the same dimension as 'x'",
call. = FALSE)
}
out <- list(x = x, Dx = Dx, Ex = Ex, mx = mx, qx = qx, lx = lx,
dx = dx, sex = sex, lx0 = lx0, ax = ax, iclass = K$iclass,
nLT = K$nLT, LTnames = K$LTnames)
return(out)
})
where 4: with(input, {
K <- find.my.case(Dx, Ex, mx, qx, lx, dx)
C <- K$case
valid_classes <- c("numeric", "matrix", "data.frame", NULL)
if (!(K$iclass %in% valid_classes)) {
stop(paste0("The class of the input should be: ", paste(valid_classes,
collapse = ", ")), call. = FALSE)
}
SMS <- "contains missing values. These have been replaced with "
if (!is.null(sex)) {
if (!(sex %in% c("male", "female", "total")))
stop("'sex' should be: 'male', 'female', 'total' or 'NULL'.",
call. = FALSE)
}
if (C == "C1_DxEx") {
Dx[is.na(Dx)] <- 0
Ex[is.na(Ex) | Ex == 0] <- 0.01
if (any(is.na(Dx)))
warning("'Dx'", SMS, 0, call. = FALSE)
if (any(is.na(Ex)))
warning("'Ex'", SMS, 0.01, call. = FALSE)
}
if (C == "C2_mx") {
mx <- uxAbove100(x, mx)
}
if (C == "C3_qx") {
qx <- uxAbove100(x, qx)
}
if (C == "C4_lx") {
lx[is.na(lx) & x >= 100] <- 0
if (any(is.na(lx)))
warning("'lx'", SMS, 0, call. = FALSE)
}
if (C == "C5_dx") {
dx[is.na(dx)] <- 0
if (any(is.na(dx)))
warning("'dx'", SMS, 0, call. = FALSE)
}
if (!is.null(ax)) {
if (!is.numeric(ax))
stop("'ax' must be a numeric scalar (or NULL)", call. = FALSE)
if (!any(length(ax) %in% c(1, length(x))))
stop("'ax' must be a scalar of lenght 1 or a ", "vector of the same dimension as 'x'",
call. = FALSE)
}
out <- list(x = x, Dx = Dx, Ex = Ex, mx = mx, qx = qx, lx = lx,
dx = dx, sex = sex, lx0 = lx0, ax = ax, iclass = K$iclass,
nLT = K$nLT, LTnames = K$LTnames)
return(out)
})
where 5: LifeTable.check(input)
where 6: LifeTable(xx, mx = hx, sex = sex, lx0 = lx0, ax = ax)
where 7: LawTable(x, par = C3, law = "thiele")
where 8: eval_bare(expr, quo_get_env(quo))
where 9: quasi_label(enquo(object), arg = "object")
where 10 at testthat/test_LawTable.R#32: expect_s3_class(LawTable(x, par = C3, law = "thiele"), "LifeTable")
where 11: eval(code, test_env)
where 12: eval(code, test_env)
where 13: withCallingHandlers({
eval(code, test_env)
if (!handled && !is.null(test)) {
skip_empty()
}
}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,
message = handle_message, error = handle_error)
where 14: doTryCatch(return(expr), name, parentenv, handler)
where 15: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 16: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
where 17: doTryCatch(return(expr), name, parentenv, handler)
where 18: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
names[nh], parentenv, handlers[[nh]])
where 19: tryCatchList(expr, classes, parentenv, handlers)
where 20: tryCatch(withCallingHandlers({
eval(code, test_env)
if (!handled && !is.null(test)) {
skip_empty()
}
}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,
message = handle_message, error = handle_error), error = handle_fatal,
skip = function(e) {
})
where 21: test_code(NULL, exprs, env)
where 22: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
where 23: force(code)
where 24: doWithOneRestart(return(expr), restart)
where 25: withOneRestart(expr, restarts[[1L]])
where 26: withRestarts(testthat_abort_reporter = function() NULL, force(code))
where 27: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,
{
reporter$start_file(basename(path))
lister$start_file(basename(path))
source_file(path, new.env(parent = env), chdir = TRUE,
wrap = wrap)
reporter$.end_context()
reporter$end_file()
})
where 28: FUN(X[[i]], ...)
where 29: lapply(paths, test_file, env = env, reporter = current_reporter,
start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
where 30: force(code)
where 31: doWithOneRestart(return(expr), restart)
where 32: withOneRestart(expr, restarts[[1L]])
where 33: withRestarts(testthat_abort_reporter = function() NULL, force(code))
where 34: with_reporter(reporter = current_reporter, results <- lapply(paths,
test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,
load_helpers = FALSE, wrap = wrap))
where 35: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,
stop_on_warning = stop_on_warning, wrap = wrap)
where 36: test_dir(path = test_path, reporter = reporter, env = env, filter = filter,
..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,
wrap = wrap)
where 37: test_package_dir(package = package, test_path = test_path, filter = filter,
reporter = reporter, ..., stop_on_failure = stop_on_failure,
stop_on_warning = stop_on_warning, wrap = wrap)
where 38: test_check("MortalityLaws")
--- value of length: 2 type: logical ---
[1] FALSE TRUE
--- function from context ---
--- function search by body ---
----------- END OF FAILURE REPORT --------------
Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-clang
Version: 1.8.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [2s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> # --------------------------------------------------- #
> # Author: Marius D. Pascariu
> # License: MIT
> # Last update: Wed Jun 05 14:41:16 2019
> # --------------------------------------------------- #
>
> library(testthat)
> # expect_message(library(MortalityLaws))
>
> test_check("MortalityLaws")
Loading required package: MortalityLaws
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
MortalityLaws
--- call from context ---
eval(substitute(expr), data, enclos = parent.frame())
--- call from argument ---
if (!(K$iclass %in% valid_classes)) {
stop(paste0("The class of the input should be: ", paste(valid_classes,
collapse = ", ")), call. = FALSE)
}
--- R stacktrace ---
where 1: eval(substitute(expr), data, enclos = parent.frame())
where 2: eval(substitute(expr), data, enclos = parent.frame())
where 3: with.default(input, {
K <- find.my.case(Dx, Ex, mx, qx, lx, dx)
C <- K$case
valid_classes <- c("numeric", "matrix", "data.frame", NULL)
if (!(K$iclass %in% valid_classes)) {
stop(paste0("The class of the input should be: ", paste(valid_classes,
collapse = ", ")), call. = FALSE)
}
SMS <- "contains missing values. These have been replaced with "
if (!is.null(sex)) {
if (!(sex %in% c("male", "female", "total")))
stop("'sex' should be: 'male', 'female', 'total' or 'NULL'.",
call. = FALSE)
}
if (C == "C1_DxEx") {
Dx[is.na(Dx)] <- 0
Ex[is.na(Ex) | Ex == 0] <- 0.01
if (any(is.na(Dx)))
warning("'Dx'", SMS, 0, call. = FALSE)
if (any(is.na(Ex)))
warning("'Ex'", SMS, 0.01, call. = FALSE)
}
if (C == "C2_mx") {
mx <- uxAbove100(x, mx)
}
if (C == "C3_qx") {
qx <- uxAbove100(x, qx)
}
if (C == "C4_lx") {
lx[is.na(lx) & x >= 100] <- 0
if (any(is.na(lx)))
warning("'lx'", SMS, 0, call. = FALSE)
}
if (C == "C5_dx") {
dx[is.na(dx)] <- 0
if (any(is.na(dx)))
warning("'dx'", SMS, 0, call. = FALSE)
}
if (!is.null(ax)) {
if (!is.numeric(ax))
stop("'ax' must be a numeric scalar (or NULL)", call. = FALSE)
if (!any(length(ax) %in% c(1, length(x))))
stop("'ax' must be a scalar of lenght 1 or a ", "vector of the same dimension as 'x'",
call. = FALSE)
}
out <- list(x = x, Dx = Dx, Ex = Ex, mx = mx, qx = qx, lx = lx,
dx = dx, sex = sex, lx0 = lx0, ax = ax, iclass = K$iclass,
nLT = K$nLT, LTnames = K$LTnames)
return(out)
})
where 4: with(input, {
K <- find.my.case(Dx, Ex, mx, qx, lx, dx)
C <- K$case
valid_classes <- c("numeric", "matrix", "data.frame", NULL)
if (!(K$iclass %in% valid_classes)) {
stop(paste0("The class of the input should be: ", paste(valid_classes,
collapse = ", ")), call. = FALSE)
}
SMS <- "contains missing values. These have been replaced with "
if (!is.null(sex)) {
if (!(sex %in% c("male", "female", "total")))
stop("'sex' should be: 'male', 'female', 'total' or 'NULL'.",
call. = FALSE)
}
if (C == "C1_DxEx") {
Dx[is.na(Dx)] <- 0
Ex[is.na(Ex) | Ex == 0] <- 0.01
if (any(is.na(Dx)))
warning("'Dx'", SMS, 0, call. = FALSE)
if (any(is.na(Ex)))
warning("'Ex'", SMS, 0.01, call. = FALSE)
}
if (C == "C2_mx") {
mx <- uxAbove100(x, mx)
}
if (C == "C3_qx") {
qx <- uxAbove100(x, qx)
}
if (C == "C4_lx") {
lx[is.na(lx) & x >= 100] <- 0
if (any(is.na(lx)))
warning("'lx'", SMS, 0, call. = FALSE)
}
if (C == "C5_dx") {
dx[is.na(dx)] <- 0
if (any(is.na(dx)))
warning("'dx'", SMS, 0, call. = FALSE)
}
if (!is.null(ax)) {
if (!is.numeric(ax))
stop("'ax' must be a numeric scalar (or NULL)", call. = FALSE)
if (!any(length(ax) %in% c(1, length(x))))
stop("'ax' must be a scalar of lenght 1 or a ", "vector of the same dimension as 'x'",
call. = FALSE)
}
out <- list(x = x, Dx = Dx, Ex = Ex, mx = mx, qx = qx, lx = lx,
dx = dx, sex = sex, lx0 = lx0, ax = ax, iclass = K$iclass,
nLT = K$nLT, LTnames = K$LTnames)
return(out)
})
where 5: LifeTable.check(input)
where 6: LifeTable(xx, mx = hx, sex = sex, lx0 = lx0, ax = ax)
where 7: LawTable(x, par = C3, law = "thiele")
where 8: eval_bare(expr, quo_get_env(quo))
where 9: quasi_label(enquo(object), arg = "object")
where 10 at testthat/test_LawTable.R#32: expect_s3_class(LawTable(x, par = C3, law = "thiele"), "LifeTable")
where 11: eval(code, test_env)
where 12: eval(code, test_env)
where 13: withCallingHandlers({
eval(code, test_env)
if (!handled && !is.null(test)) {
skip_empty()
}
}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,
message = handle_message, error = handle_error)
where 14: doTryCatch(return(expr), name, parentenv, handler)
where 15: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 16: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
where 17: doTryCatch(return(expr), name, parentenv, handler)
where 18: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
names[nh], parentenv, handlers[[nh]])
where 19: tryCatchList(expr, classes, parentenv, handlers)
where 20: tryCatch(withCallingHandlers({
eval(code, test_env)
if (!handled && !is.null(test)) {
skip_empty()
}
}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,
message = handle_message, error = handle_error), error = handle_fatal,
skip = function(e) {
})
where 21: test_code(NULL, exprs, env)
where 22: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
where 23: force(code)
where 24: doWithOneRestart(return(expr), restart)
where 25: withOneRestart(expr, restarts[[1L]])
where 26: withRestarts(testthat_abort_reporter = function() NULL, force(code))
where 27: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,
{
reporter$start_file(basename(path))
lister$start_file(basename(path))
source_file(path, new.env(parent = env), chdir = TRUE,
wrap = wrap)
reporter$.end_context()
reporter$end_file()
})
where 28: FUN(X[[i]], ...)
where 29: lapply(paths, test_file, env = env, reporter = current_reporter,
start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
where 30: force(code)
where 31: doWithOneRestart(return(expr), restart)
where 32: withOneRestart(expr, restarts[[1L]])
where 33: withRestarts(testthat_abort_reporter = function() NULL, force(code))
where 34: with_reporter(reporter = current_reporter, results <- lapply(paths,
test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,
load_helpers = FALSE, wrap = wrap))
where 35: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,
stop_on_warning = stop_on_warning, wrap = wrap)
where 36: test_dir(path = test_path, reporter = reporter, env = env, filter = filter,
..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,
wrap = wrap)
where 37: test_package_dir(package = package, test_path = test_path, filter = filter,
reporter = reporter, ..., stop_on_failure = stop_on_failure,
stop_on_warning = stop_on_warning, wrap = wrap)
where 38: test_check("MortalityLaws")
--- value of length: 2 type: logical ---
[1] FALSE TRUE
--- function from context ---
--- function search by body ---
----------- END OF FAILURE REPORT --------------
Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 1.8.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [70s/475s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> # --------------------------------------------------- #
> # Author: Marius D. Pascariu
> # License: MIT
> # Last update: Wed Jun 05 14:41:16 2019
> # --------------------------------------------------- #
>
> library(testthat)
> # expect_message(library(MortalityLaws))
>
> test_check("MortalityLaws")
Loading required package: MortalityLaws
[1] 1
[1] 2
[1] 3
[1] 4
[1] 5
[1] 6
[1] 7
[1] 8
[1] 9
[1] 10
[1] 11
[1] 12
[1] 13
[1] 14
[1] 15
[1] 16
M1: gompertz
M2: gompertz0
M3: invgompertz
M4: makeham
M5: makeham0
M6: opperman
M7: thiele
M8: wittstein
M9: perks
M10: weibull
M11: invweibull
M12: vandermaen
M13: vandermaen2
M14: strehler_mildvan
M15: quadratic
M16: beard
M17: beard_makeham
M18: ggompertz
M19: siler
M20: HP
M21: HP2
M22: HP3
M23: HP4
M24: rogersplanck
M25: martinelle
M26: carriere1
M27: carriere2
M28: kostaki
M29: kannisto
M30: kannisto_makeham
:Downloading AUS :Downloading Japan :Downloading Japan ── 1. Error: (unknown) (@test_ReadJMD.R#20) ───────────────────────────────────
Failed to connect to www.ipss.go.jp port 80: Connection timed out
Backtrace:
1 Create mx_from_mx
2 Create mx_from_qx
3 Create mx_from_dx
4 Create mx_from_lx
5 Create qx_from_mx
6 Create qx_from_qx
7 Create qx_from_dx
8 Create qx_from_lx
9 Create dx_from_mx
10 Create dx_from_qx
11 Create dx_from_dx
12 Create dx_from_lx
13 Create lx_from_mx
14 Create lx_from_qx
15 Create lx_from_dx
16 Create lx_from_lx
17 Create Lx_from_mx
18 Create Lx_from_qx
19 Create Lx_from_dx
20 Create Lx_from_lx
21 Create Tx_from_mx
22 Create Tx_from_qx
23 Create Tx_from_dx
24 Create Tx_from_lx
25 Create ex_from_mx
26 Create ex_from_qx
27 Create ex_from_dx
28 Create ex_from_lx
══ testthat results ═══════════════════════════════════════════════════════════
[ OK: 953 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 1 ]
1. Error: (unknown) (@test_ReadJMD.R#20)
Error: testthat unit tests failed
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 1.8.1
Check: re-building of vignette outputs
Result: WARN
Error(s) in re-building vignettes:
--- re-building ‘Installation.Rmd’ using rmarkdown
--- finished re-building ‘Installation.Rmd’
--- re-building ‘Intro.Rmd’ using rmarkdown
HINT: Most of the functions work well with 'poissonL', however for complex mortality laws like Heligman-Pollard (HP) one can obtain a better fit using other loss functions (e.g. 'LF2'). You are strongly encouraged to test different option before deciding on the final version. The results might be slightly different.
! LaTeX Error: Environment cslreferences undefined.
Error: processing vignette 'Intro.Rmd' failed with diagnostics:
Failed to compile Intro.tex. See https://yihui.name/tinytex/r/#debugging for debugging tips. See Intro.log for more info.
--- failed re-building ‘Intro.Rmd’
SUMMARY: processing the following file failed:
‘Intro.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 1.8.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [71s/470s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> # --------------------------------------------------- #
> # Author: Marius D. Pascariu
> # License: MIT
> # Last update: Wed Jun 05 14:41:16 2019
> # --------------------------------------------------- #
>
> library(testthat)
> # expect_message(library(MortalityLaws))
>
> test_check("MortalityLaws")
Loading required package: MortalityLaws
[1] 1
[1] 2
[1] 3
[1] 4
[1] 5
[1] 6
[1] 7
[1] 8
[1] 9
[1] 10
[1] 11
[1] 12
[1] 13
[1] 14
[1] 15
[1] 16
M1: gompertz
M2: gompertz0
M3: invgompertz
M4: makeham
M5: makeham0
M6: opperman
M7: thiele
M8: wittstein
M9: perks
M10: weibull
M11: invweibull
M12: vandermaen
M13: vandermaen2
M14: strehler_mildvan
M15: quadratic
M16: beard
M17: beard_makeham
M18: ggompertz
M19: siler
M20: HP
M21: HP2
M22: HP3
M23: HP4
M24: rogersplanck
M25: martinelle
M26: carriere1
M27: carriere2
M28: kostaki
M29: kannisto
M30: kannisto_makeham
:Downloading AUS :Downloading Japan :Downloading Japan ── 1. Error: (unknown) (@test_ReadJMD.R#20) ───────────────────────────────────
Failed to connect to www.ipss.go.jp port 80: Connection timed out
Backtrace:
1 Create mx_from_mx
2 Create mx_from_qx
3 Create mx_from_dx
4 Create mx_from_lx
5 Create qx_from_mx
6 Create qx_from_qx
7 Create qx_from_dx
8 Create qx_from_lx
9 Create dx_from_mx
10 Create dx_from_qx
11 Create dx_from_dx
12 Create dx_from_lx
13 Create lx_from_mx
14 Create lx_from_qx
15 Create lx_from_dx
16 Create lx_from_lx
17 Create Lx_from_mx
18 Create Lx_from_qx
19 Create Lx_from_dx
20 Create Lx_from_lx
21 Create Tx_from_mx
22 Create Tx_from_qx
23 Create Tx_from_dx
24 Create Tx_from_lx
25 Create ex_from_mx
26 Create ex_from_qx
27 Create ex_from_dx
28 Create ex_from_lx
══ testthat results ═══════════════════════════════════════════════════════════
[ OK: 953 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 1 ]
1. Error: (unknown) (@test_ReadJMD.R#20)
Error: testthat unit tests failed
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 1.8.1
Check: tests
Result: ERROR
Running 'testthat.R' [161s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> # --------------------------------------------------- #
> # Author: Marius D. Pascariu
> # License: MIT
> # Last update: Wed Jun 05 14:41:16 2019
> # --------------------------------------------------- #
>
> library(testthat)
> # expect_message(library(MortalityLaws))
>
> test_check("MortalityLaws")
Loading required package: MortalityLaws
[1] 1
[1] 2
[1] 3
[1] 4
[1] 5
[1] 6
[1] 7
[1] 8
[1] 9
[1] 10
[1] 11
[1] 12
[1] 13
[1] 14
[1] 15
[1] 16
M1: gompertz
M2: gompertz0
M3: invgompertz
M4: makeham
M5: makeham0
M6: opperman
M7: thiele
M8: wittstein
M9: perks
M10: weibull
M11: invweibull
M12: vandermaen
M13: vandermaen2
M14: strehler_mildvan
M15: quadratic
M16: beard
M17: beard_makeham
M18: ggompertz
M19: siler
M20: HP
M21: HP2
M22: HP3
M23: HP4
M24: rogersplanck
M25: martinelle
M26: carriere1
M27: carriere2
M28: kostaki
M29: kannisto
M30: kannisto_makeham
:Downloading AUS :Downloading Japan :Downloading Japan -- 1. Error: (unknown) (@test_ReadJMD.R#20) -----------------------------------
Failed to connect to www.ipss.go.jp port 80: Timed out
Backtrace:
1 Create mx_from_mx
2 Create mx_from_qx
3 Create mx_from_dx
4 Create mx_from_lx
5 Create qx_from_mx
6 Create qx_from_qx
7 Create qx_from_dx
8 Create qx_from_lx
9 Create dx_from_mx
10 Create dx_from_qx
11 Create dx_from_dx
12 Create dx_from_lx
13 Create lx_from_mx
14 Create lx_from_qx
15 Create lx_from_dx
16 Create lx_from_lx
17 Create Lx_from_mx
18 Create Lx_from_qx
19 Create Lx_from_dx
20 Create Lx_from_lx
21 Create Tx_from_mx
22 Create Tx_from_qx
23 Create Tx_from_dx
24 Create Tx_from_lx
25 Create ex_from_mx
26 Create ex_from_qx
27 Create ex_from_dx
28 Create ex_from_lx
== testthat results ===========================================================
[ OK: 953 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 1 ]
1. Error: (unknown) (@test_ReadJMD.R#20)
Error: testthat unit tests failed
Execution halted
Flavor: r-devel-windows-ix86+x86_64
Version: 1.8.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [65s/477s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> # --------------------------------------------------- #
> # Author: Marius D. Pascariu
> # License: MIT
> # Last update: Wed Jun 05 14:41:16 2019
> # --------------------------------------------------- #
>
> library(testthat)
> # expect_message(library(MortalityLaws))
>
> test_check("MortalityLaws")
Loading required package: MortalityLaws
[1] 1
[1] 2
[1] 3
[1] 4
[1] 5
[1] 6
[1] 7
[1] 8
[1] 9
[1] 10
[1] 11
[1] 12
[1] 13
[1] 14
[1] 15
[1] 16
M1: gompertz
M2: gompertz0
M3: invgompertz
M4: makeham
M5: makeham0
M6: opperman
M7: thiele
M8: wittstein
M9: perks
M10: weibull
M11: invweibull
M12: vandermaen
M13: vandermaen2
M14: strehler_mildvan
M15: quadratic
M16: beard
M17: beard_makeham
M18: ggompertz
M19: siler
M20: HP
M21: HP2
M22: HP3
M23: HP4
M24: rogersplanck
M25: martinelle
M26: carriere1
M27: carriere2
M28: kostaki
M29: kannisto
M30: kannisto_makeham
:Downloading AUS :Downloading Japan :Downloading Japan ── 1. Error: (unknown) (@test_ReadJMD.R#20) ───────────────────────────────────
Failed to connect to www.ipss.go.jp port 80: Connection timed out
Backtrace:
1 Create mx_from_mx
2 Create mx_from_qx
3 Create mx_from_dx
4 Create mx_from_lx
5 Create qx_from_mx
6 Create qx_from_qx
7 Create qx_from_dx
8 Create qx_from_lx
9 Create dx_from_mx
10 Create dx_from_qx
11 Create dx_from_dx
12 Create dx_from_lx
13 Create lx_from_mx
14 Create lx_from_qx
15 Create lx_from_dx
16 Create lx_from_lx
17 Create Lx_from_mx
18 Create Lx_from_qx
19 Create Lx_from_dx
20 Create Lx_from_lx
21 Create Tx_from_mx
22 Create Tx_from_qx
23 Create Tx_from_dx
24 Create Tx_from_lx
25 Create ex_from_mx
26 Create ex_from_qx
27 Create ex_from_dx
28 Create ex_from_lx
══ testthat results ═══════════════════════════════════════════════════════════
[ OK: 953 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 1 ]
1. Error: (unknown) (@test_ReadJMD.R#20)
Error: testthat unit tests failed
Execution halted
Flavor: r-release-linux-x86_64