CRAN Package Check Results for Package flexPM

Last updated on 2020-02-19 10:48:53 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 2.0 6.64 63.70 70.34 ERROR
r-devel-linux-x86_64-debian-gcc 2.0 7.55 49.04 56.59 ERROR
r-devel-linux-x86_64-fedora-clang 2.0 84.92 ERROR
r-devel-linux-x86_64-fedora-gcc 2.0 84.92 ERROR
r-devel-windows-ix86+x86_64 2.0 13.00 65.00 78.00 OK
r-devel-windows-ix86+x86_64-gcc8 2.0 20.00 88.00 108.00 OK
r-patched-linux-x86_64 2.0 7.92 54.07 61.99 OK
r-patched-solaris-x86 2.0 115.80 OK
r-release-linux-x86_64 2.0 6.17 53.70 59.87 OK
r-release-windows-ix86+x86_64 2.0 14.00 66.00 80.00 OK
r-release-osx-x86_64 2.0 OK
r-oldrel-windows-ix86+x86_64 2.0 9.00 65.00 74.00 OK
r-oldrel-osx-x86_64 2.0 OK

Check Details

Version: 2.0
Check: examples
Result: ERROR
    Running examples in 'flexPM-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: flexPM
    > ### Title: Flexible Modeling of Survival Data
    > ### Aliases: flexPM
    > ### Keywords: models survival
    >
    > ### ** Examples
    >
    > # Simulated data from a normal distribution
    >
    > n <- 1000
    > x1 <- rnorm(n)
    > x2 <- runif(n)
    >
    >
    > # non-censored, non-truncated data
    >
    > t <- rnorm(n, 2 + 3*x1, 1 + x2) # time variable
    > m1 <- flexPM(Surv(t) ~ x1 + x2)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    flexPM
     --- call from context ---
    flexPM.newton(c(theta), loglik, maxit = maxit, tol = tol, Bz = Bz,
     By = By, B1y = B1y, x = x, d = d, d1 = d1, dd = dd, weights = weights,
     notrunc = notrunc)
     --- call from argument ---
    if (class(H1) != "try-error") {
     if (alg == "gs") {
     alg <- "nr"
     eps <- 1
     }
     delta <- chol2inv(H1) %*% g
    } else {
     if (alg == "nr") {
     alg <- "gs"
     eps <- 1
     }
     delta <- g
    }
     --- R stacktrace ---
    where 1: flexPM.newton(c(theta), loglik, maxit = maxit, tol = tol, Bz = Bz,
     By = By, B1y = B1y, x = x, d = d, d1 = d1, dd = dd, weights = weights,
     notrunc = notrunc)
    where 2: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
    where 3: suppressWarnings(flexPM.newton(c(theta), loglik, maxit = maxit,
     tol = tol, Bz = Bz, By = By, B1y = B1y, x = x, d = d, d1 = d1,
     dd = dd, weights = weights, notrunc = notrunc))
    where 4: L.estimator(z, y, d, x, weights, df, degree, knots, maxit = maxit,
     tol = tol, type = type)
    where 5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
    where 6: suppressWarnings(L.estimator(z, y, d, x, weights, df, degree,
     knots, maxit = maxit, tol = tol, type = type))
    where 7: flexPM(Surv(t) ~ x1 + x2)
    
     --- value of length: 2 type: logical ---
    [1] TRUE TRUE
     --- function from context ---
    function (start, f, tol = 1e-05, maxit = 200, ...)
    {
     f0 <- f(start, ..., deriv = 2)
     g <- attr(f0, "gradient")
     h <- attr(f0, "hessian")
     conv <- FALSE
     eps <- 1
     alg <- "nr"
     for (i in 1:maxit) {
     if (conv | max(abs(g)) < tol) {
     break
     }
     H1 <- try(chol(h), silent = TRUE)
     if (class(H1) != "try-error") {
     if (alg == "gs") {
     alg <- "nr"
     eps <- 1
     }
     delta <- chol2inv(H1) %*% g
     }
     else {
     if (alg == "nr") {
     alg <- "gs"
     eps <- 1
     }
     delta <- g
     }
     f1 <- Inf
     while (f1 > f0) {
     new.start <- start - delta * eps
     if (max(abs(delta * eps)) < tol) {
     conv <- TRUE
     break
     }
     f1 <- try(f(new.start, ..., deriv = 0), silent = TRUE)
     eps <- eps * 0.5
     if (class(f1) == "try-error" || is.na(f1)) {
     f1 <- Inf
     }
     }
     if (conv | f0 - f1 < tol) {
     break
     }
     f1 <- f(new.start, ..., deriv = 2)
     g1 <- attr(f1, "gradient")
     h1 <- attr(f1, "hessian")
     start <- new.start
     f0 <- f1
     g <- g1
     h <- h1
     eps <- min(eps * 10, 1)
     }
     list(estimate = start, n.it = i, minimum = as.numeric(f0),
     gradient = g, hessian = h)
    }
    <bytecode: 0xb7602f8>
    <environment: namespace:flexPM>
     --- function search by body ---
    Function flexPM.newton in namespace flexPM has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(H1) != "try-error") { : the condition has length > 1
    Calls: flexPM
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 2.0
Check: examples
Result: ERROR
    Running examples in ‘flexPM-Ex.R’ failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: flexPM
    > ### Title: Flexible Modeling of Survival Data
    > ### Aliases: flexPM
    > ### Keywords: models survival
    >
    > ### ** Examples
    >
    > # Simulated data from a normal distribution
    >
    > n <- 1000
    > x1 <- rnorm(n)
    > x2 <- runif(n)
    >
    >
    > # non-censored, non-truncated data
    >
    > t <- rnorm(n, 2 + 3*x1, 1 + x2) # time variable
    > m1 <- flexPM(Surv(t) ~ x1 + x2)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    flexPM
     --- call from context ---
    flexPM.newton(c(theta), loglik, maxit = maxit, tol = tol, Bz = Bz,
     By = By, B1y = B1y, x = x, d = d, d1 = d1, dd = dd, weights = weights,
     notrunc = notrunc)
     --- call from argument ---
    if (class(H1) != "try-error") {
     if (alg == "gs") {
     alg <- "nr"
     eps <- 1
     }
     delta <- chol2inv(H1) %*% g
    } else {
     if (alg == "nr") {
     alg <- "gs"
     eps <- 1
     }
     delta <- g
    }
     --- R stacktrace ---
    where 1: flexPM.newton(c(theta), loglik, maxit = maxit, tol = tol, Bz = Bz,
     By = By, B1y = B1y, x = x, d = d, d1 = d1, dd = dd, weights = weights,
     notrunc = notrunc)
    where 2: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
    where 3: suppressWarnings(flexPM.newton(c(theta), loglik, maxit = maxit,
     tol = tol, Bz = Bz, By = By, B1y = B1y, x = x, d = d, d1 = d1,
     dd = dd, weights = weights, notrunc = notrunc))
    where 4: L.estimator(z, y, d, x, weights, df, degree, knots, maxit = maxit,
     tol = tol, type = type)
    where 5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
    where 6: suppressWarnings(L.estimator(z, y, d, x, weights, df, degree,
     knots, maxit = maxit, tol = tol, type = type))
    where 7: flexPM(Surv(t) ~ x1 + x2)
    
     --- value of length: 2 type: logical ---
    [1] TRUE TRUE
     --- function from context ---
    function (start, f, tol = 1e-05, maxit = 200, ...)
    {
     f0 <- f(start, ..., deriv = 2)
     g <- attr(f0, "gradient")
     h <- attr(f0, "hessian")
     conv <- FALSE
     eps <- 1
     alg <- "nr"
     for (i in 1:maxit) {
     if (conv | max(abs(g)) < tol) {
     break
     }
     H1 <- try(chol(h), silent = TRUE)
     if (class(H1) != "try-error") {
     if (alg == "gs") {
     alg <- "nr"
     eps <- 1
     }
     delta <- chol2inv(H1) %*% g
     }
     else {
     if (alg == "nr") {
     alg <- "gs"
     eps <- 1
     }
     delta <- g
     }
     f1 <- Inf
     while (f1 > f0) {
     new.start <- start - delta * eps
     if (max(abs(delta * eps)) < tol) {
     conv <- TRUE
     break
     }
     f1 <- try(f(new.start, ..., deriv = 0), silent = TRUE)
     eps <- eps * 0.5
     if (class(f1) == "try-error" || is.na(f1)) {
     f1 <- Inf
     }
     }
     if (conv | f0 - f1 < tol) {
     break
     }
     f1 <- f(new.start, ..., deriv = 2)
     g1 <- attr(f1, "gradient")
     h1 <- attr(f1, "hessian")
     start <- new.start
     f0 <- f1
     g <- g1
     h <- h1
     eps <- min(eps * 10, 1)
     }
     list(estimate = start, n.it = i, minimum = as.numeric(f0),
     gradient = g, hessian = h)
    }
    <bytecode: 0x55b8f2e0d600>
    <environment: namespace:flexPM>
     --- function search by body ---
    Function flexPM.newton in namespace flexPM has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(H1) != "try-error") { : the condition has length > 1
    Calls: flexPM
    Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 2.0
Check: examples
Result: ERROR
    Running examples in ‘flexPM-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: flexPM
    > ### Title: Flexible Modeling of Survival Data
    > ### Aliases: flexPM
    > ### Keywords: models survival
    >
    > ### ** Examples
    >
    > # Simulated data from a normal distribution
    >
    > n <- 1000
    > x1 <- rnorm(n)
    > x2 <- runif(n)
    >
    >
    > # non-censored, non-truncated data
    >
    > t <- rnorm(n, 2 + 3*x1, 1 + x2) # time variable
    > m1 <- flexPM(Surv(t) ~ x1 + x2)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    flexPM
     --- call from context ---
    flexPM.newton(c(theta), loglik, maxit = maxit, tol = tol, Bz = Bz,
     By = By, B1y = B1y, x = x, d = d, d1 = d1, dd = dd, weights = weights,
     notrunc = notrunc)
     --- call from argument ---
    if (class(H1) != "try-error") {
     if (alg == "gs") {
     alg <- "nr"
     eps <- 1
     }
     delta <- chol2inv(H1) %*% g
    } else {
     if (alg == "nr") {
     alg <- "gs"
     eps <- 1
     }
     delta <- g
    }
     --- R stacktrace ---
    where 1: flexPM.newton(c(theta), loglik, maxit = maxit, tol = tol, Bz = Bz,
     By = By, B1y = B1y, x = x, d = d, d1 = d1, dd = dd, weights = weights,
     notrunc = notrunc)
    where 2: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
    where 3: suppressWarnings(flexPM.newton(c(theta), loglik, maxit = maxit,
     tol = tol, Bz = Bz, By = By, B1y = B1y, x = x, d = d, d1 = d1,
     dd = dd, weights = weights, notrunc = notrunc))
    where 4: L.estimator(z, y, d, x, weights, df, degree, knots, maxit = maxit,
     tol = tol, type = type)
    where 5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
    where 6: suppressWarnings(L.estimator(z, y, d, x, weights, df, degree,
     knots, maxit = maxit, tol = tol, type = type))
    where 7: flexPM(Surv(t) ~ x1 + x2)
    
     --- value of length: 2 type: logical ---
    [1] TRUE TRUE
     --- function from context ---
    function (start, f, tol = 1e-05, maxit = 200, ...)
    {
     f0 <- f(start, ..., deriv = 2)
     g <- attr(f0, "gradient")
     h <- attr(f0, "hessian")
     conv <- FALSE
     eps <- 1
     alg <- "nr"
     for (i in 1:maxit) {
     if (conv | max(abs(g)) < tol) {
     break
     }
     H1 <- try(chol(h), silent = TRUE)
     if (class(H1) != "try-error") {
     if (alg == "gs") {
     alg <- "nr"
     eps <- 1
     }
     delta <- chol2inv(H1) %*% g
     }
     else {
     if (alg == "nr") {
     alg <- "gs"
     eps <- 1
     }
     delta <- g
     }
     f1 <- Inf
     while (f1 > f0) {
     new.start <- start - delta * eps
     if (max(abs(delta * eps)) < tol) {
     conv <- TRUE
     break
     }
     f1 <- try(f(new.start, ..., deriv = 0), silent = TRUE)
     eps <- eps * 0.5
     if (class(f1) == "try-error" || is.na(f1)) {
     f1 <- Inf
     }
     }
     if (conv | f0 - f1 < tol) {
     break
     }
     f1 <- f(new.start, ..., deriv = 2)
     g1 <- attr(f1, "gradient")
     h1 <- attr(f1, "hessian")
     start <- new.start
     f0 <- f1
     g <- g1
     h <- h1
     eps <- min(eps * 10, 1)
     }
     list(estimate = start, n.it = i, minimum = as.numeric(f0),
     gradient = g, hessian = h)
    }
    <bytecode: 0xb309ff0>
    <environment: namespace:flexPM>
     --- function search by body ---
    Function flexPM.newton in namespace flexPM has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(H1) != "try-error") { : the condition has length > 1
    Calls: flexPM
    Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 2.0
Check: examples
Result: ERROR
    Running examples in ‘flexPM-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: flexPM
    > ### Title: Flexible Modeling of Survival Data
    > ### Aliases: flexPM
    > ### Keywords: models survival
    >
    > ### ** Examples
    >
    > # Simulated data from a normal distribution
    >
    > n <- 1000
    > x1 <- rnorm(n)
    > x2 <- runif(n)
    >
    >
    > # non-censored, non-truncated data
    >
    > t <- rnorm(n, 2 + 3*x1, 1 + x2) # time variable
    > m1 <- flexPM(Surv(t) ~ x1 + x2)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    flexPM
     --- call from context ---
    flexPM.newton(c(theta), loglik, maxit = maxit, tol = tol, Bz = Bz,
     By = By, B1y = B1y, x = x, d = d, d1 = d1, dd = dd, weights = weights,
     notrunc = notrunc)
     --- call from argument ---
    if (class(H1) != "try-error") {
     if (alg == "gs") {
     alg <- "nr"
     eps <- 1
     }
     delta <- chol2inv(H1) %*% g
    } else {
     if (alg == "nr") {
     alg <- "gs"
     eps <- 1
     }
     delta <- g
    }
     --- R stacktrace ---
    where 1: flexPM.newton(c(theta), loglik, maxit = maxit, tol = tol, Bz = Bz,
     By = By, B1y = B1y, x = x, d = d, d1 = d1, dd = dd, weights = weights,
     notrunc = notrunc)
    where 2: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
    where 3: suppressWarnings(flexPM.newton(c(theta), loglik, maxit = maxit,
     tol = tol, Bz = Bz, By = By, B1y = B1y, x = x, d = d, d1 = d1,
     dd = dd, weights = weights, notrunc = notrunc))
    where 4: L.estimator(z, y, d, x, weights, df, degree, knots, maxit = maxit,
     tol = tol, type = type)
    where 5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
    where 6: suppressWarnings(L.estimator(z, y, d, x, weights, df, degree,
     knots, maxit = maxit, tol = tol, type = type))
    where 7: flexPM(Surv(t) ~ x1 + x2)
    
     --- value of length: 2 type: logical ---
    [1] TRUE TRUE
     --- function from context ---
    function (start, f, tol = 1e-05, maxit = 200, ...)
    {
     f0 <- f(start, ..., deriv = 2)
     g <- attr(f0, "gradient")
     h <- attr(f0, "hessian")
     conv <- FALSE
     eps <- 1
     alg <- "nr"
     for (i in 1:maxit) {
     if (conv | max(abs(g)) < tol) {
     break
     }
     H1 <- try(chol(h), silent = TRUE)
     if (class(H1) != "try-error") {
     if (alg == "gs") {
     alg <- "nr"
     eps <- 1
     }
     delta <- chol2inv(H1) %*% g
     }
     else {
     if (alg == "nr") {
     alg <- "gs"
     eps <- 1
     }
     delta <- g
     }
     f1 <- Inf
     while (f1 > f0) {
     new.start <- start - delta * eps
     if (max(abs(delta * eps)) < tol) {
     conv <- TRUE
     break
     }
     f1 <- try(f(new.start, ..., deriv = 0), silent = TRUE)
     eps <- eps * 0.5
     if (class(f1) == "try-error" || is.na(f1)) {
     f1 <- Inf
     }
     }
     if (conv | f0 - f1 < tol) {
     break
     }
     f1 <- f(new.start, ..., deriv = 2)
     g1 <- attr(f1, "gradient")
     h1 <- attr(f1, "hessian")
     start <- new.start
     f0 <- f1
     g <- g1
     h <- h1
     eps <- min(eps * 10, 1)
     }
     list(estimate = start, n.it = i, minimum = as.numeric(f0),
     gradient = g, hessian = h)
    }
    <bytecode: 0xc5067b8>
    <environment: namespace:flexPM>
     --- function search by body ---
    Function flexPM.newton in namespace flexPM has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(H1) != "try-error") { : the condition has length > 1
    Calls: flexPM
    Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc