CRAN Package Check Results for Package mmds

Last updated on 2020-02-19 10:49:00 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 1.1 3.78 26.41 30.19 ERROR
r-devel-linux-x86_64-debian-gcc 1.1 3.15 20.65 23.80 ERROR
r-devel-linux-x86_64-fedora-clang 1.1 37.00 ERROR
r-devel-linux-x86_64-fedora-gcc 1.1 35.90 ERROR
r-devel-windows-ix86+x86_64 1.1 8.00 33.00 41.00 NOTE
r-devel-windows-ix86+x86_64-gcc8 1.1 10.00 47.00 57.00 NOTE
r-patched-linux-x86_64 1.1 2.98 26.11 29.09 NOTE
r-patched-solaris-x86 1.1 52.60 NOTE
r-release-linux-x86_64 1.1 2.81 26.64 29.45 NOTE
r-release-windows-ix86+x86_64 1.1 6.00 49.00 55.00 NOTE
r-release-osx-x86_64 1.1 NOTE
r-oldrel-windows-ix86+x86_64 1.1 5.00 34.00 39.00 NOTE
r-oldrel-osx-x86_64 1.1 NOTE

Check Details

Version: 1.1
Check: R code for possible problems
Result: NOTE
    em: no visible global function definition for 'optim'
    em.m: no visible global function definition for 'optim'
    fitmix: no visible global function definition for 'model.matrix'
    fitmix: no visible global function definition for 'as.formula'
    fitmix: no visible global function definition for 'optim'
    flt.gr : Af: no visible global function definition for 'dgamma'
    integrate.hn: no visible global function definition for 'pnorm'
    inv.reparam.pi : F: no visible global function definition for 'pgamma'
    inv.reparam.pi : Finv: no visible global function definition for
     'qgamma'
    plot.ds.mixture: no visible global function definition for 'hist'
    plot.ds.mixture: no visible global function definition for 'par'
    plot.ds.mixture: no visible global function definition for 'plot'
    plot.ds.mixture: no visible global function definition for 'axis'
    plot.ds.mixture: no visible global function definition for 'lines'
    plot.ds.mixture: no visible global function definition for 'box'
    plot.ds.mixture: no visible global function definition for 'as.formula'
    plot.ds.mixture: no visible global function definition for
     'terms.formula'
    plot.ds.mixture: no visible global function definition for 'quantile'
    plot.ds.mixture: no visible global function definition for 'grey'
    reparam.pi : F: no visible global function definition for 'pgamma'
    setinitialvalues: no visible global function definition for 'lm'
    setinitialvalues: no visible global function definition for
     'as.formula'
    sim.mix: no visible global function definition for 'runif'
    sim.mix: no visible global function definition for 'optimize'
    Undefined global functions or variables:
     as.formula axis box dgamma grey hist lines lm model.matrix optim
     optimize par pgamma plot pnorm qgamma quantile runif terms.formula
    Consider adding
     importFrom("grDevices", "grey")
     importFrom("graphics", "axis", "box", "hist", "lines", "par", "plot")
     importFrom("stats", "as.formula", "dgamma", "lm", "model.matrix",
     "optim", "optimize", "pgamma", "pnorm", "qgamma",
     "quantile", "runif", "terms.formula")
    to your NAMESPACE file.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-ix86+x86_64, r-devel-windows-ix86+x86_64-gcc8, r-patched-linux-x86_64, r-patched-solaris-x86, r-release-linux-x86_64, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64

Version: 1.1
Check: examples
Result: ERROR
    Running examples in 'mmds-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: fitmix
    > ### Title: Mixture Model Distance Detection Function Fitting
    > ### Aliases: fitmix
    >
    > ### ** Examples
    >
    > library(mmds)
    > set.seed(0)
    > ## simulate some line transect data from a 2 point mixture
    > sim.dat<-sim.mix(c(-0.223,-1.897,inv.reparam.pi(0.3)),2,100,1)
    > ## fit the model
    > fit.sim.dat<-fitmix(sim.dat,1,2)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    mmds
     --- call from context ---
    solvecov(-lt$hessian)
     --- call from argument ---
    if (class(covinv) != "try-error") coll = FALSE else {
     p <- nrow(m)
     cove <- eigen(m, symmetric = TRUE)
     coll <- TRUE
     if (min(cove$values) < 1/cmax) {
     covewi <- diag(p)
     for (i in 1:p) if (cove$values[i] < 1/cmax)
     covewi[i, i] <- cmax
     else covewi[i, i] <- 1/cove$values[i]
     }
     else covewi <- diag(1/cove$values, nrow = length(cove$values))
     covinv <- cove$vectors %*% covewi %*% t(cove$vectors)
    }
     --- R stacktrace ---
    where 1: solvecov(-lt$hessian)
    where 2: fitmix(sim.dat, 1, 2)
    
     --- value of length: 2 type: logical ---
    [1] TRUE TRUE
     --- function from context ---
    function (m, cmax = 1e+10)
    {
     options(show.error.messages = FALSE)
     covinv <- try(solve(m))
     if (class(covinv) != "try-error")
     coll = FALSE
     else {
     p <- nrow(m)
     cove <- eigen(m, symmetric = TRUE)
     coll <- TRUE
     if (min(cove$values) < 1/cmax) {
     covewi <- diag(p)
     for (i in 1:p) if (cove$values[i] < 1/cmax)
     covewi[i, i] <- cmax
     else covewi[i, i] <- 1/cove$values[i]
     }
     else covewi <- diag(1/cove$values, nrow = length(cove$values))
     covinv <- cove$vectors %*% covewi %*% t(cove$vectors)
     }
     options(show.error.messages = TRUE)
     out <- list(inv = covinv, coll = coll)
    }
    <bytecode: 0x4e711b8>
    <environment: namespace:mmds>
     --- function search by body ---
    Function solvecov in namespace mmds has this body.
     ----------- END OF FAILURE REPORT --------------
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 1.1
Check: examples
Result: ERROR
    Running examples in ‘mmds-Ex.R’ failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: fitmix
    > ### Title: Mixture Model Distance Detection Function Fitting
    > ### Aliases: fitmix
    >
    > ### ** Examples
    >
    > library(mmds)
    > set.seed(0)
    > ## simulate some line transect data from a 2 point mixture
    > sim.dat<-sim.mix(c(-0.223,-1.897,inv.reparam.pi(0.3)),2,100,1)
    > ## fit the model
    > fit.sim.dat<-fitmix(sim.dat,1,2)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    mmds
     --- call from context ---
    solvecov(-lt$hessian)
     --- call from argument ---
    if (class(covinv) != "try-error") coll = FALSE else {
     p <- nrow(m)
     cove <- eigen(m, symmetric = TRUE)
     coll <- TRUE
     if (min(cove$values) < 1/cmax) {
     covewi <- diag(p)
     for (i in 1:p) if (cove$values[i] < 1/cmax)
     covewi[i, i] <- cmax
     else covewi[i, i] <- 1/cove$values[i]
     }
     else covewi <- diag(1/cove$values, nrow = length(cove$values))
     covinv <- cove$vectors %*% covewi %*% t(cove$vectors)
    }
     --- R stacktrace ---
    where 1: solvecov(-lt$hessian)
    where 2: fitmix(sim.dat, 1, 2)
    
     --- value of length: 2 type: logical ---
    [1] TRUE TRUE
     --- function from context ---
    function (m, cmax = 1e+10)
    {
     options(show.error.messages = FALSE)
     covinv <- try(solve(m))
     if (class(covinv) != "try-error")
     coll = FALSE
     else {
     p <- nrow(m)
     cove <- eigen(m, symmetric = TRUE)
     coll <- TRUE
     if (min(cove$values) < 1/cmax) {
     covewi <- diag(p)
     for (i in 1:p) if (cove$values[i] < 1/cmax)
     covewi[i, i] <- cmax
     else covewi[i, i] <- 1/cove$values[i]
     }
     else covewi <- diag(1/cove$values, nrow = length(cove$values))
     covinv <- cove$vectors %*% covewi %*% t(cove$vectors)
     }
     options(show.error.messages = TRUE)
     out <- list(inv = covinv, coll = coll)
    }
    <bytecode: 0x55789af4b810>
    <environment: namespace:mmds>
     --- function search by body ---
    Function solvecov in namespace mmds has this body.
     ----------- END OF FAILURE REPORT --------------
    Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 1.1
Check: examples
Result: ERROR
    Running examples in ‘mmds-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: fitmix
    > ### Title: Mixture Model Distance Detection Function Fitting
    > ### Aliases: fitmix
    >
    > ### ** Examples
    >
    > library(mmds)
    > set.seed(0)
    > ## simulate some line transect data from a 2 point mixture
    > sim.dat<-sim.mix(c(-0.223,-1.897,inv.reparam.pi(0.3)),2,100,1)
    > ## fit the model
    > fit.sim.dat<-fitmix(sim.dat,1,2)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    mmds
     --- call from context ---
    solvecov(-lt$hessian)
     --- call from argument ---
    if (class(covinv) != "try-error") coll = FALSE else {
     p <- nrow(m)
     cove <- eigen(m, symmetric = TRUE)
     coll <- TRUE
     if (min(cove$values) < 1/cmax) {
     covewi <- diag(p)
     for (i in 1:p) if (cove$values[i] < 1/cmax)
     covewi[i, i] <- cmax
     else covewi[i, i] <- 1/cove$values[i]
     }
     else covewi <- diag(1/cove$values, nrow = length(cove$values))
     covinv <- cove$vectors %*% covewi %*% t(cove$vectors)
    }
     --- R stacktrace ---
    where 1: solvecov(-lt$hessian)
    where 2: fitmix(sim.dat, 1, 2)
    
     --- value of length: 2 type: logical ---
    [1] TRUE TRUE
     --- function from context ---
    function (m, cmax = 1e+10)
    {
     options(show.error.messages = FALSE)
     covinv <- try(solve(m))
     if (class(covinv) != "try-error")
     coll = FALSE
     else {
     p <- nrow(m)
     cove <- eigen(m, symmetric = TRUE)
     coll <- TRUE
     if (min(cove$values) < 1/cmax) {
     covewi <- diag(p)
     for (i in 1:p) if (cove$values[i] < 1/cmax)
     covewi[i, i] <- cmax
     else covewi[i, i] <- 1/cove$values[i]
     }
     else covewi <- diag(1/cove$values, nrow = length(cove$values))
     covinv <- cove$vectors %*% covewi %*% t(cove$vectors)
     }
     options(show.error.messages = TRUE)
     out <- list(inv = covinv, coll = coll)
    }
    <bytecode: 0x4fba4e0>
    <environment: namespace:mmds>
     --- function search by body ---
    Function solvecov in namespace mmds has this body.
     ----------- END OF FAILURE REPORT --------------
    Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 1.1
Check: examples
Result: ERROR
    Running examples in ‘mmds-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: fitmix
    > ### Title: Mixture Model Distance Detection Function Fitting
    > ### Aliases: fitmix
    >
    > ### ** Examples
    >
    > library(mmds)
    > set.seed(0)
    > ## simulate some line transect data from a 2 point mixture
    > sim.dat<-sim.mix(c(-0.223,-1.897,inv.reparam.pi(0.3)),2,100,1)
    > ## fit the model
    > fit.sim.dat<-fitmix(sim.dat,1,2)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    mmds
     --- call from context ---
    solvecov(-lt$hessian)
     --- call from argument ---
    if (class(covinv) != "try-error") coll = FALSE else {
     p <- nrow(m)
     cove <- eigen(m, symmetric = TRUE)
     coll <- TRUE
     if (min(cove$values) < 1/cmax) {
     covewi <- diag(p)
     for (i in 1:p) if (cove$values[i] < 1/cmax)
     covewi[i, i] <- cmax
     else covewi[i, i] <- 1/cove$values[i]
     }
     else covewi <- diag(1/cove$values, nrow = length(cove$values))
     covinv <- cove$vectors %*% covewi %*% t(cove$vectors)
    }
     --- R stacktrace ---
    where 1: solvecov(-lt$hessian)
    where 2: fitmix(sim.dat, 1, 2)
    
     --- value of length: 2 type: logical ---
    [1] TRUE TRUE
     --- function from context ---
    function (m, cmax = 1e+10)
    {
     options(show.error.messages = FALSE)
     covinv <- try(solve(m))
     if (class(covinv) != "try-error")
     coll = FALSE
     else {
     p <- nrow(m)
     cove <- eigen(m, symmetric = TRUE)
     coll <- TRUE
     if (min(cove$values) < 1/cmax) {
     covewi <- diag(p)
     for (i in 1:p) if (cove$values[i] < 1/cmax)
     covewi[i, i] <- cmax
     else covewi[i, i] <- 1/cove$values[i]
     }
     else covewi <- diag(1/cove$values, nrow = length(cove$values))
     covinv <- cove$vectors %*% covewi %*% t(cove$vectors)
     }
     options(show.error.messages = TRUE)
     out <- list(inv = covinv, coll = coll)
    }
    <bytecode: 0x41fa2c8>
    <environment: namespace:mmds>
     --- function search by body ---
    Function solvecov in namespace mmds has this body.
     ----------- END OF FAILURE REPORT --------------
    Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc