Last updated on 2019-11-26 00:51:56 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.4.5 | 9.41 | 93.08 | 102.49 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 0.4.5 | 8.58 | 69.79 | 78.37 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.4.5 | 113.68 | OK | |||
| r-devel-linux-x86_64-fedora-gcc | 0.4.5 | 110.89 | OK | |||
| r-devel-windows-ix86+x86_64 | 0.4.5 | 47.00 | 130.00 | 177.00 | OK | |
| r-devel-windows-ix86+x86_64-gcc8 | 0.4.5 | 23.00 | 95.00 | 118.00 | OK | |
| r-patched-linux-x86_64 | 0.4.5 | 9.17 | 87.18 | 96.35 | OK | |
| r-patched-solaris-x86 | 0.4.5 | 144.70 | OK | |||
| r-release-linux-x86_64 | 0.4.5 | 9.66 | 87.55 | 97.21 | OK | |
| r-release-windows-ix86+x86_64 | 0.4.5 | 31.00 | 141.00 | 172.00 | OK | |
| r-release-osx-x86_64 | 0.4.5 | OK | ||||
| r-oldrel-windows-ix86+x86_64 | 0.4.5 | 15.00 | 91.00 | 106.00 | WARN | |
| r-oldrel-osx-x86_64 | 0.4.5 | OK |
Version: 0.4.5
Check: examples
Result: ERROR
Running examples in 'ldhmm-Ex.R' failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ldhmm
> ### Title: Constructor of ldhmm class
> ### Aliases: ldhmm
> ### Keywords: constructor
>
> ### ** Examples
>
> param0 <- matrix(c(0.003, 0.02, 1, -0.006, 0.03, 1.3), 2, 3, byrow=TRUE)
> gamma0 <- matrix(c(0.9, 0.1, 0.1, 0.9), 2, 2, byrow=TRUE)
> d <- ldhmm(m=2, param=param0, gamma=gamma0)
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
ldhmm
--- call from context ---
ldhmm(m = 2, param = param0, gamma = gamma0)
--- call from argument ---
if (class(gamma) == "numeric") {
if (length(gamma) != m * m)
stop(paste("gamma is a vector, but length is not m by m:",
length(gamma)))
gamma <- ldhmm.gamma_init(m, prob = gamma)
}
--- R stacktrace ---
where 1: ldhmm(m = 2, param = param0, gamma = gamma0)
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (m, param, gamma, delta = NULL, stationary = TRUE, mle.optimizer = "nlm")
{
call <- match.call()
param.nbr <- NCOL(param)
if (length(m) != 1 | m%%1 != 0)
stop("m must be an integer")
if (param.nbr%%1 != 0)
stop("param.nbr must be integer")
if (param.nbr != 2 & param.nbr != 3)
stop("param.nbr must be 2 or 3")
if (NROW(param) != m)
stop("param must have m rows")
if (stationary == FALSE) {
if (length(delta) != m)
stop("delta must be length-m vector when stationary is not true")
}
if (class(gamma) == "numeric") {
if (length(gamma) != m * m)
stop(paste("gamma is a vector, but length is not m by m:",
length(gamma)))
gamma <- ldhmm.gamma_init(m, prob = gamma)
}
if (NROW(gamma) != m | NCOL(gamma) != m)
stop("gamma must be mxm matrix")
if (param.nbr == 2)
colnames(param) <- c("mu", "sigma")
if (param.nbr == 3)
colnames(param) <- c("mu", "sigma", "lambda")
d <- new("ldhmm", call = call, m = unname(m), param.nbr = param.nbr,
param = param, gamma = gamma, delta = delta, stationary = stationary,
mle.optimizer = mle.optimizer)
invisible(d)
}
<bytecode: 0x4221210>
<environment: namespace:ldhmm>
--- function search by body ---
Function ldhmm in namespace ldhmm has this body.
----------- END OF FAILURE REPORT --------------
Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.4.5
Check: tests
Result: ERROR
Running 'testthat.R' [6s/6s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
>
> library(testthat)
> library(ecd)
> library(ldhmm)
> test_check("ldhmm")
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
ldhmm
--- call from context ---
ldhmm(m = m, param = param0, gamma = gamma0, delta = delta0)
--- call from argument ---
if (class(gamma) == "numeric") {
if (length(gamma) != m * m)
stop(paste("gamma is a vector, but length is not m by m:",
length(gamma)))
gamma <- ldhmm.gamma_init(m, prob = gamma)
}
--- R stacktrace ---
where 1 at testthat/test-forecast-ldhmm.R#20: ldhmm(m = m, param = param0, gamma = gamma0, delta = delta0)
where 2: eval(code, test_env)
where 3: eval(code, test_env)
where 4: 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 5: doTryCatch(return(expr), name, parentenv, handler)
where 6: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 7: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
where 8: doTryCatch(return(expr), name, parentenv, handler)
where 9: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
names[nh], parentenv, handlers[[nh]])
where 10: tryCatchList(expr, classes, parentenv, handlers)
where 11: 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 12: test_code(NULL, exprs, env)
where 13: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
where 14: force(code)
where 15: doWithOneRestart(return(expr), restart)
where 16: withOneRestart(expr, restarts[[1L]])
where 17: withRestarts(testthat_abort_reporter = function() NULL, force(code))
where 18: 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 19: FUN(X[[i]], ...)
where 20: lapply(paths, test_file, env = env, reporter = current_reporter,
start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
where 21: force(code)
where 22: doWithOneRestart(return(expr), restart)
where 23: withOneRestart(expr, restarts[[1L]])
where 24: withRestarts(testthat_abort_reporter = function() NULL, force(code))
where 25: 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 26: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,
stop_on_warning = stop_on_warning, wrap = wrap)
where 27: 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 28: 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 29: test_check("ldhmm")
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (m, param, gamma, delta = NULL, stationary = TRUE, mle.optimizer = "nlm")
{
call <- match.call()
param.nbr <- NCOL(param)
if (length(m) != 1 | m%%1 != 0)
stop("m must be an integer")
if (param.nbr%%1 != 0)
stop("param.nbr must be integer")
if (param.nbr != 2 & param.nbr != 3)
stop("param.nbr must be 2 or 3")
if (NROW(param) != m)
stop("param must have m rows")
if (stationary == FALSE) {
if (length(delta) != m)
stop("delta must be length-m vector when stationary is not true")
}
if (class(gamma) == "numeric") {
if (length(gamma) != m * m)
stop(paste("gamma is a vector, but length is not m by m:",
length(gamma)))
gamma <- ldhmm.gamma_init(m, prob = gamma)
}
if (NROW(gamma) != m | NCOL(gamma) != m)
stop("gamma must be mxm matrix")
if (param.nbr == 2)
colnames(param) <- c("mu", "sigma")
if (param.nbr == 3)
colnames(param) <- c("mu", "sigma", "lambda")
d <- new("ldhmm", call = call, m = unname(m), param.nbr = param.nbr,
param = param, gamma = gamma, delta = delta, stationary = stationary,
mle.optimizer = mle.optimizer)
invisible(d)
}
<bytecode: 0x5e5bd38>
<environment: namespace:ldhmm>
--- function search by body ---
Function ldhmm in namespace ldhmm has this body.
Function ldhmm in namespace ldhmm has this body.
----------- END OF FAILURE REPORT --------------
Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.4.5
Check: examples
Result: ERROR
Running examples in ‘ldhmm-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ldhmm
> ### Title: Constructor of ldhmm class
> ### Aliases: ldhmm
> ### Keywords: constructor
>
> ### ** Examples
>
> param0 <- matrix(c(0.003, 0.02, 1, -0.006, 0.03, 1.3), 2, 3, byrow=TRUE)
> gamma0 <- matrix(c(0.9, 0.1, 0.1, 0.9), 2, 2, byrow=TRUE)
> d <- ldhmm(m=2, param=param0, gamma=gamma0)
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
ldhmm
--- call from context ---
ldhmm(m = 2, param = param0, gamma = gamma0)
--- call from argument ---
if (class(gamma) == "numeric") {
if (length(gamma) != m * m)
stop(paste("gamma is a vector, but length is not m by m:",
length(gamma)))
gamma <- ldhmm.gamma_init(m, prob = gamma)
}
--- R stacktrace ---
where 1: ldhmm(m = 2, param = param0, gamma = gamma0)
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (m, param, gamma, delta = NULL, stationary = TRUE, mle.optimizer = "nlm")
{
call <- match.call()
param.nbr <- NCOL(param)
if (length(m) != 1 | m%%1 != 0)
stop("m must be an integer")
if (param.nbr%%1 != 0)
stop("param.nbr must be integer")
if (param.nbr != 2 & param.nbr != 3)
stop("param.nbr must be 2 or 3")
if (NROW(param) != m)
stop("param must have m rows")
if (stationary == FALSE) {
if (length(delta) != m)
stop("delta must be length-m vector when stationary is not true")
}
if (class(gamma) == "numeric") {
if (length(gamma) != m * m)
stop(paste("gamma is a vector, but length is not m by m:",
length(gamma)))
gamma <- ldhmm.gamma_init(m, prob = gamma)
}
if (NROW(gamma) != m | NCOL(gamma) != m)
stop("gamma must be mxm matrix")
if (param.nbr == 2)
colnames(param) <- c("mu", "sigma")
if (param.nbr == 3)
colnames(param) <- c("mu", "sigma", "lambda")
d <- new("ldhmm", call = call, m = unname(m), param.nbr = param.nbr,
param = param, gamma = gamma, delta = delta, stationary = stationary,
mle.optimizer = mle.optimizer)
invisible(d)
}
<bytecode: 0x564fd02c35b8>
<environment: namespace:ldhmm>
--- function search by body ---
Function ldhmm in namespace ldhmm has this body.
----------- END OF FAILURE REPORT --------------
Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.4.5
Check: tests
Result: ERROR
Running ‘testthat.R’ [4s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
>
> library(testthat)
> library(ecd)
> library(ldhmm)
> test_check("ldhmm")
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
ldhmm
--- call from context ---
ldhmm(m = m, param = param0, gamma = gamma0, delta = delta0)
--- call from argument ---
if (class(gamma) == "numeric") {
if (length(gamma) != m * m)
stop(paste("gamma is a vector, but length is not m by m:",
length(gamma)))
gamma <- ldhmm.gamma_init(m, prob = gamma)
}
--- R stacktrace ---
where 1 at testthat/test-forecast-ldhmm.R#20: ldhmm(m = m, param = param0, gamma = gamma0, delta = delta0)
where 2: eval(code, test_env)
where 3: eval(code, test_env)
where 4: 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 5: doTryCatch(return(expr), name, parentenv, handler)
where 6: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 7: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
where 8: doTryCatch(return(expr), name, parentenv, handler)
where 9: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),
names[nh], parentenv, handlers[[nh]])
where 10: tryCatchList(expr, classes, parentenv, handlers)
where 11: 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 12: test_code(NULL, exprs, env)
where 13: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
where 14: force(code)
where 15: doWithOneRestart(return(expr), restart)
where 16: withOneRestart(expr, restarts[[1L]])
where 17: withRestarts(testthat_abort_reporter = function() NULL, force(code))
where 18: 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 19: FUN(X[[i]], ...)
where 20: lapply(paths, test_file, env = env, reporter = current_reporter,
start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
where 21: force(code)
where 22: doWithOneRestart(return(expr), restart)
where 23: withOneRestart(expr, restarts[[1L]])
where 24: withRestarts(testthat_abort_reporter = function() NULL, force(code))
where 25: 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 26: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,
stop_on_warning = stop_on_warning, wrap = wrap)
where 27: 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 28: 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 29: test_check("ldhmm")
--- value of length: 2 type: logical ---
[1] FALSE FALSE
--- function from context ---
function (m, param, gamma, delta = NULL, stationary = TRUE, mle.optimizer = "nlm")
{
call <- match.call()
param.nbr <- NCOL(param)
if (length(m) != 1 | m%%1 != 0)
stop("m must be an integer")
if (param.nbr%%1 != 0)
stop("param.nbr must be integer")
if (param.nbr != 2 & param.nbr != 3)
stop("param.nbr must be 2 or 3")
if (NROW(param) != m)
stop("param must have m rows")
if (stationary == FALSE) {
if (length(delta) != m)
stop("delta must be length-m vector when stationary is not true")
}
if (class(gamma) == "numeric") {
if (length(gamma) != m * m)
stop(paste("gamma is a vector, but length is not m by m:",
length(gamma)))
gamma <- ldhmm.gamma_init(m, prob = gamma)
}
if (NROW(gamma) != m | NCOL(gamma) != m)
stop("gamma must be mxm matrix")
if (param.nbr == 2)
colnames(param) <- c("mu", "sigma")
if (param.nbr == 3)
colnames(param) <- c("mu", "sigma", "lambda")
d <- new("ldhmm", call = call, m = unname(m), param.nbr = param.nbr,
param = param, gamma = gamma, delta = delta, stationary = stationary,
mle.optimizer = mle.optimizer)
invisible(d)
}
<bytecode: 0x55ab42f3b270>
<environment: namespace:ldhmm>
--- function search by body ---
Function ldhmm in namespace ldhmm has this body.
Function ldhmm in namespace ldhmm has this body.
----------- END OF FAILURE REPORT --------------
Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.4.5
Check: whether package can be installed
Result: WARN
Found the following significant warnings:
Warning: S3 methods '[.fun_list', '[.grouped_df', 'all.equal.tbl_df', 'anti_join.data.frame', 'anti_join.tbl_df', 'arrange.data.frame', 'arrange.default', 'arrange.grouped_df', 'arrange.tbl_df', 'arrange_.data.frame', 'arrange_.tbl_df', 'as.data.frame.grouped_df', 'as.data.frame.rowwise_df', 'as.data.frame.tbl_cube', 'as.table.tbl_cube', 'as.tbl.data.frame', 'as.tbl.tbl', 'as.tbl_cube.array', 'as.tbl_cube.data.frame', 'as.tbl_cube.matrix', 'as.tbl_cube.table', 'as_tibble.grouped_df', 'as_tibble.tbl_cube', 'auto_copy.tbl_cube', 'auto_copy.tbl_df', 'cbind.grouped_df', 'collapse.data.frame', 'collect.data.frame', 'common_by.NULL', 'common_by.character', 'common_by.default', 'common_by.list', 'compute.data.frame', 'copy_to.DBIConnection', 'copy_to.src_local', 'default_missing.data.frame', 'default_missing.default', 'dim.tbl_cube', 'distinct.data.frame', 'distinct.default', 'distinct.grouped_df', 'distinct.tbl_df', 'distinct_.data.frame', 'distinct_.grouped_df', 'distinct_.tbl_df', 'do.NULL', 'do.da [... truncated]
Flavor: r-oldrel-windows-ix86+x86_64