CRAN Package Check Results for Package supc

Last updated on 2019-08-24 05:47:10 CEST.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.2.1 32.16 407.47 439.63 OK
r-devel-linux-x86_64-debian-gcc 0.2.1 23.39 189.39 212.78 OK
r-devel-linux-x86_64-fedora-clang 0.2.1 605.11 OK
r-devel-linux-x86_64-fedora-gcc 0.2.1 358.22 OK
r-devel-windows-ix86+x86_64 0.2.1 71.00 363.00 434.00 OK
r-patched-linux-x86_64 0.2.1 27.27 243.19 270.46 OK
r-patched-solaris-x86 0.2.1 898.80 ERROR
r-release-linux-x86_64 0.2.1 28.93 244.84 273.77 OK
r-release-windows-ix86+x86_64 0.2.1 73.00 363.00 436.00 OK
r-release-osx-x86_64 0.2.1 OK
r-oldrel-windows-ix86+x86_64 0.2.1 92.00 439.00 531.00 OK
r-oldrel-osx-x86_64 0.2.1 OK

Check Details

Version: 0.2.1
Check: tests
Result: ERROR
     Running ‘test-clusterize.R’
     Running ‘test-config.R’
     Running ‘test-dgemm.R’
     Running ‘test-dist.R’
     Running ‘test-golub.R’
     Running ‘test-supc-random.R’
     Running ‘test-supc1.R’
    Running the tests in ‘tests/test-supc-random.R’ failed.
    Complete output:
     > library(supc)
     > X <- local({
     + set.seed(1)
     + mu <- list(
     + x = c(0, 2, 1, 6, 8, 7, 3, 5, 4),
     + y = c(0, 0, 1, 0, 0, 1, 3, 3, 4)
     + )
     + X <- lapply(1:3, function(i) {
     + cbind(rnorm(9, mu$x, 1/5), rnorm(9, mu$y, 1/5))
     + })
     + X <- do.call(rbind, X)
     + })
     >
     > # Checking with reference object
     >
     >
     > # parameters <- list(tau = 0.9, t = function() {0.75})
     > dist.mode("stats")
     > implementations <- local({
     + .group <- list(c(1L, 2L, 1L, 2L, 1L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 1L, 1L,
     + 1L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 2L, 1L, 2L), c(1L, 1L,
     + 2L, 2L, 2L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L,
     + 1L, 1L, 2L, 2L, 1L, 1L, 1L, 2L, 2L), c(1L, 1L, 1L, 2L, 2L, 2L,
     + 2L, 1L, 2L, 2L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 2L, 1L, 1L, 1L, 2L,
     + 1L, 1L, 1L, 2L, 1L), c(1L, 1L, 2L, 1L, 2L, 1L, 1L, 2L, 2L, 2L,
     + 2L, 1L, 2L, 2L, 1L, 2L, 2L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L,
     + 2L), c(2L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 1L, 2L,
     + 1L, 2L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 1L), c(2L, 1L,
     + 2L, 2L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 1L,
     + 1L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 2L), c(2L, 1L, 2L, 1L, 1L, 2L,
     + 2L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 1L, 2L, 2L, 1L,
     + 2L, 1L, 1L, 2L, 1L), c(2L, 2L, 2L, 1L, 1L, 1L, 2L, 2L, 1L, 1L,
     + 2L, 2L, 1L, 2L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 1L, 2L, 1L,
     + 1L), c(2L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 1L, 2L, 2L, 1L, 1L,
     + 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 2L, 1L, 2L, 2L, 1L), c(2L, 1L,
     + 1L, 2L, 1L, 1L, 1L, 2L, 1L, 2L, 2L, 2L, 1L, 2L, 1L, 1L, 2L, 1L,
     + 1L, 2L, 1L, 1L, 2L, 2L, 2L, 2L, 1L), c(1L, 1L, 1L, 2L, 2L, 2L,
     + 1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 2L, 2L, 1L,
     + 2L, 1L, 2L, 1L, 2L), c(2L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
     + 1L, 1L, 1L, 2L, 1L, 2L, 2L, 1L, 2L, 1L, 1L, 2L, 1L, 2L, 2L, 1L,
     + 2L))
     + list(
     + function(X) supc1(X, r = 0.9, t = 0.75),
     + function(X) supc.random(X, r = 0.9, t = 0.75, k = 2, implementation = "R", groups = .group),
     + function(X) supc.random(X, r = 0.9, t = 0.75, k = 2, implementation = "cpp", groups = .group)
     + )
     + })
     >
     > ## Checking
     > local({
     + check.names.ref <- c("x", "r", "cluster", "centers", "size", "result", "iteration")
     + objs <- list()
     + for(f in implementations) {
     + objs[[length(objs) + 1]] <- f(X)
     + }
     + stopifnot(isTRUE(all.equal(
     + objs[[1]]$cluster,
     + objs[[2]]$cluster
     + )))
     + stopifnot(isTRUE(all.equal(
     + objs[[2]][check.names.ref],
     + objs[[3]][check.names.ref]
     + )))
     + for(obj in objs) {
     + stopifnot(is.null(obj$d0))
     + }
     + invisible(NULL)
     + })
     Error: C stack usage 189568008 is too close to the limit
     Execution halted
    Running the tests in ‘tests/test-supc1.R’ failed.
    Complete output:
     > library(supc)
     >
     > # checking with reference object
     >
     > ## initializing datasets
     > X <- local({
     + set.seed(1)
     + mu <- list(
     + x = c(0, 2, 1, 6, 8, 7, 3, 5, 4),
     + y = c(0, 0, 1, 0, 0, 1, 3, 3, 4)
     + )
     + X <- lapply(1:3, function(i) {
     + cbind(rnorm(9, mu$x, 1/5), rnorm(9, mu$y, 1/5))
     + })
     + do.call(rbind, X)
     + })
     >
     > ## fitting original supc
     > dist.mode("stats")
     > implementations <- list(
     + function(x) supc1(x, r = .9, t = .75, implementation = "cpp"),
     + function(x) supc1(x, r = .9, t = .75, implementation = "R"),
     + function(x) supc1(x, r = .9, t = .75, implementation = "cpp2")
     + )
     > ## construct the reference answer
     > checkers <- local({
     + X.supc.ref <- structure(list(cluster = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L,
     + 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 1L, 2L, 3L, 4L, 5L, 6L, 7L,
     + 8L, 9L), centers = structure(c(-0.0180254152322607, 2.046727139439,
     + 1.08716939783766, 6.20911417627993, 8.0147761104807, 6.79821207689788,
     + 3.1200608974441, 5.08556992438004, 3.97988236811187, -0.162390279741713,
     + 0.0922984238508252, 1.10583358958467, 0.0381059301321746, -0.0860889759850034,
     + 1.12872658834518, 2.95353852156743, 2.93593224005029, 3.95578772830951
     + ), .Dim = c(9L, 2L), .Dimnames = list(c("1", "2", "3", "4", "5",
     + "6", "7", "8", "9"), NULL)), size = structure(c(3L, 3L, 3L, 3L,
     + 3L, 3L, 3L, 3L, 3L), .Dim = 9L, .Dimnames = structure(list(cl = c("1",
     + "2", "3", "4", "5", "6", "7", "8", "9")), .Names = "cl"), class = "table"), result =
     + structure(c(-0.0180261933327141, 2.04672690185634, 1.08716459103973,
     + 6.20911479359631, 8.01478639248956, 6.79821233636245, 3.120060897386,
     + 5.08557036591521, 3.97988628297925, -0.0180240066479849, 2.04672737537831,
     + 1.0871717225937, 6.20911329944317, 8.01477212538717, 6.79821139564722,
     + 3.12006089738845, 5.08556899922362, 3.97988108345371, -0.0180260457145569,
     + 2.0467271410823, 1.08717187986439, 6.2091144357991, 8.01476981396315,
     + 6.79821249868371, 3.12006089755786, 5.08557040799994, 3.97987973791727,
     + -0.16238970131008, 0.0922997350318823, 1.10583302184102, 0.0381040643950639,
     + -0.0861576055475903, 1.12872663987661, 2.95353852178939, 2.9359332333143,
     + 3.95579429846029, -0.162391325928923, 0.0922972350517618, 1.10583386393582,
     + 0.0381086887425844, -0.0860622340754393, 1.12872647385683, 2.95353852178015,
     + 2.93593015772972, 3.95578556171455, -0.162389811987271, 0.0922983014691015,
     + 1.10583388297537, 0.0381050372627042, -0.0860470909879731, 1.12872665130206,
     + 2.95353852113276, 2.9359333291038, 3.95578332477825), .Dim = c(27L,
     + 2L)), iteration = 4L), .Names = c("cluster",
     + "centers", "size", "result", "iteration"))
     + ref.check.name <- c("cluster", "centers", "size", "result", "iteration")
     + # construct the checker
     + class.attr.checker <- function(supc.obj) {
     + # check consistency
     + stopifnot(class(supc.obj) == "supc")
     + attr.ref <- structure(list(names = c("x", "d0", "r", "t", "cluster", "centers",
     + "size", "result", "iteration"), class = "supc"), .Names = c("names",
     + "class"))
     + stopifnot(isTRUE(all.equal(attributes(supc.obj), attr.ref)))
     + # check with reference object
     + }
     + value.checker <- function(supc.obj) {
     + stopifnot(isTRUE(all.equal(supc.obj[ref.check.name], X.supc.ref)))
     + }
     + list(class.attr.checker, value.checker)
     + })
     > ## checking
     > local({
     + # objs <- lapply(implementations, function(f) {
     + # f(X)
     + # })
     + objs <- list()
     + for(f in implementations) {
     + objs[[length(objs) + 1 ]] <- f(X)
     + }
     + for(check in checkers) {
     + for(obj in objs) {
     + check(obj)
     + freq.poly(obj)
     + plot(obj)
     + }
     + }
     + NULL
     + })
     Error: C stack usage 189567960 is too close to the limit
     Execution halted
Flavor: r-patched-solaris-x86