CRAN Package Check Results for Package robustX

Last updated on 2017-09-20 07:47:23.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 1.2-2 0.78 22.89 23.67 OK
r-devel-linux-x86_64-debian-gcc 1.2-2 0.79 22.80 23.59 OK
r-devel-linux-x86_64-fedora-clang 1.2-2 40.64 OK
r-devel-linux-x86_64-fedora-gcc 1.2-2 40.39 OK
r-devel-windows-ix86+x86_64 1.2-2 3.00 64.00 67.00 OK
r-patched-linux-x86_64 1.2-2 0.83 22.81 23.64 OK
r-patched-solaris-x86 1.2-2 53.60 OK
r-release-linux-x86_64 1.2-2 0.84 23.10 23.94 OK
r-release-windows-ix86+x86_64 1.2-2 3.00 46.00 49.00 OK
r-release-osx-x86_64 1.2-2 ERROR
r-oldrel-windows-ix86+x86_64 1.2-2 2.00 39.00 41.00 OK
r-oldrel-osx-x86_64 1.2-2 ERROR

Check Details

Version: 1.2-2
Check: examples
Result: ERROR
    Running examples in ‘robustX-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: rbwheel
    > ### Title: Multivariate Barrow Wheel Distribution Random Vectors
    > ### Aliases: rbwheel
    > ### Keywords: distribution robust
    >
    > ### ** Examples
    >
    > set.seed(17)
    > rX8 <- rbwheel(1000,8, fullResult = TRUE, scaleAfter=FALSE)
    > with(rX8, stopifnot(all.equal(X, X0 %*% A, tol = 1e-15),
    + all.equal(X0, X %*% t(A), tol = 1e-15)))
    > ##--> here, don't need to keep X0 (nor A, since that is Qrot(p))
    >
    > ## for n = 100, you don't see "it", but may guess .. :
    > n <- 100
    > pairs(r <- rbwheel(n,6))
    > n1 <- attr(r,"n1") ; pairs(r, col=1+((1:n) > n1))
    >
    > ## for n = 500, you *do* see it :
    > n <- 500
    > pairs(r <- rbwheel(n,6))
    > ## show explicitly
    > n1 <- attr(r,"n1") ; pairs(r, col=1+((1:n) > n1))
    >
    > ## but increasing sig2 does help:
    > pairs(r <- rbwheel(n,6, sig2 = .2))
    >
    > ## show explicitly
    > n1 <- attr(r,"n1") ; pairs(r, col=1+((1:n) > n1))
    >
    > set.seed(12)
    > pairs(X <- rbwheel(n, 7, spherize=TRUE))
    > colSums(X) # already centered
    [1] -3.129441e-15 6.151329e-15 -8.555656e-15 2.352285e-15 2.428613e-16
    [6] 3.505876e-15 -3.537101e-15
    >
    > if(require("ICS")) {
    + # ICS: Compare M-estimate [Max.Lik. of t_{df = 2}] with high-breakdown :
    + stopifnot(require("MASS"))
    + X.paM <- ics(X, S1 = cov, S2 = function(.) cov.trob(., nu=2)$cov, stdKurt = FALSE)
    + X.paM.<- ics(X, S1 = cov, S2 = function(.) tM(., df=2)$V, stdKurt = FALSE)
    + X.paR <- ics(X, S1 = cov, S2 = function(.) covMcd(.)$cov, stdKurt = FALSE)
    + plot(X.paM) # not at all clear
    + plot(X.paM.)# ditto
    + plot(X.paR)# very clear
    + }
    Loading required package: ICS
    Loading required package: mvtnorm
    Loading required package: MASS
    Error in covMcd(.) : could not find function "covMcd"
    Calls: ics -> do.call -> S2
    Execution halted
Flavor: r-release-osx-x86_64

Version: 1.2-2
Check: examples
Result: ERROR
    Running examples in ‘robustX-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: rbwheel
    > ### Title: Multivariate Barrow Wheel Distribution Random Vectors
    > ### Aliases: rbwheel
    > ### Keywords: distribution robust
    >
    > ### ** Examples
    >
    > set.seed(17)
    > rX8 <- rbwheel(1000,8, fullResult = TRUE, scaleAfter=FALSE)
    > with(rX8, stopifnot(all.equal(X, X0 %*% A, tol = 1e-15),
    + all.equal(X0, X %*% t(A), tol = 1e-15)))
    > ##--> here, don't need to keep X0 (nor A, since that is Qrot(p))
    >
    > ## for n = 100, you don't see "it", but may guess .. :
    > n <- 100
    > pairs(r <- rbwheel(n,6))
    > n1 <- attr(r,"n1") ; pairs(r, col=1+((1:n) > n1))
    >
    > ## for n = 500, you *do* see it :
    > n <- 500
    > pairs(r <- rbwheel(n,6))
    > ## show explicitly
    > n1 <- attr(r,"n1") ; pairs(r, col=1+((1:n) > n1))
    >
    > ## but increasing sig2 does help:
    > pairs(r <- rbwheel(n,6, sig2 = .2))
    >
    > ## show explicitly
    > n1 <- attr(r,"n1") ; pairs(r, col=1+((1:n) > n1))
    >
    > set.seed(12)
    > pairs(X <- rbwheel(n, 7, spherize=TRUE))
    > colSums(X) # already centered
    [1] -3.129441e-15 6.151329e-15 -8.555656e-15 2.352285e-15 2.428613e-16
    [6] 3.505876e-15 -3.537101e-15
    >
    > if(require("ICS")) {
    + # ICS: Compare M-estimate [Max.Lik. of t_{df = 2}] with high-breakdown :
    + stopifnot(require("MASS"))
    + X.paM <- ics(X, S1 = cov, S2 = function(.) cov.trob(., nu=2)$cov, stdKurt = FALSE)
    + X.paM.<- ics(X, S1 = cov, S2 = function(.) tM(., df=2)$V, stdKurt = FALSE)
    + X.paR <- ics(X, S1 = cov, S2 = function(.) covMcd(.)$cov, stdKurt = FALSE)
    + plot(X.paM) # not at all clear
    + plot(X.paM.)# ditto
    + plot(X.paR)# very clear
    + }
    Loading required package: ICS
    Loading required package: mvtnorm
    Loading required package: MASS
    Error in S2(c(0.906882501852091, -2.27769597461744, -1.05320504986729, :
     could not find function "covMcd"
    Calls: ics -> do.call -> S2
    Execution halted
Flavor: r-oldrel-osx-x86_64