CRAN Package Check Results for Package RoughSets

Last updated on 2019-12-15 01:50:37 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 1.3-0 26.44 57.02 83.46 ERROR
r-devel-linux-x86_64-debian-gcc 1.3-0 19.25 47.88 67.13 OK
r-devel-linux-x86_64-fedora-clang 1.3-0 112.60 NOTE
r-devel-linux-x86_64-fedora-gcc 1.3-0 108.02 NOTE
r-devel-windows-ix86+x86_64 1.3-0 48.00 111.00 159.00 OK
r-devel-windows-ix86+x86_64-gcc8 1.3-0 54.00 141.00 195.00 OK
r-patched-linux-x86_64 1.3-0 21.99 56.55 78.54 OK
r-patched-solaris-x86 1.3-0 123.10 OK
r-release-linux-x86_64 1.3-0 21.66 56.78 78.44 OK
r-release-windows-ix86+x86_64 1.3-0 49.00 90.00 139.00 OK
r-release-osx-x86_64 1.3-0 OK
r-oldrel-windows-ix86+x86_64 1.3-0 42.00 83.00 125.00 OK
r-oldrel-osx-x86_64 1.3-0 OK

Check Details

Version: 1.3-0
Check: examples
Result: ERROR
    Running examples in 'RoughSets-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: BC.IND.relation.FRST
    > ### Title: The indiscernibility relation based on fuzzy rough set theory
    > ### Aliases: BC.IND.relation.FRST
    >
    > ### ** Examples
    >
    > ###########################################################
    > ## Example 1: Dataset containing nominal values for
    > ## all attributes.
    > ###########################################################
    > ## Decision table is represented as data frame
    > dt.ex1 <- data.frame(c(1,0,2,1,1,2,2,0), c(0, 1,0, 1,0,2,1,1),
    + c(2,1,0,0,2,0,1,1), c(2,1,1,2,0,1,1,0), c(0,2,1,2,1,1,2,1))
    > colnames(dt.ex1) <- c("aa", "bb", "cc", "dd", "ee")
    > decision.table <- SF.asDecisionTable(dataset = dt.ex1, decision.attr = 5,
    + indx.nominal = c(1:5))
    >
    > ## In this case, we only consider the second and third attributes.
    > attributes <- c(2, 3)
    >
    > ## calculate fuzzy indiscernibility relation ##
    > ## in this case, we are using "crisp" as a type of relation and type of aggregation
    > control.ind <- list(type.relation = c("crisp"), type.aggregation = c("crisp"))
    > IND <- BC.IND.relation.FRST(decision.table, attributes = attributes, control = control.ind)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    RoughSets
     --- call from context ---
    Reduce.IND(init.IND, t.tnorm, t.aggregation = t.aggregation,
     delta = delta)
     --- call from argument ---
    if (class(new.IND) != "matrix") {
     new.IND = new.IND[[1]]
    }
     --- R stacktrace ---
    where 1: Reduce.IND(init.IND, t.tnorm, t.aggregation = t.aggregation,
     delta = delta)
    where 2: calc.fsimilarity(decision.table, attributes, t.tnorm = type.aggregation[[2]],
     disc.mat = disc.mat, t.aggregation = type.aggregation[[1]],
     type.MVCompletion = type.MVCompletion, alpha = control$alpha)
    where 3: BC.IND.relation.FRST(decision.table, attributes = attributes,
     control = control.ind)
    
     --- value of length: 2 type: logical ---
    [1] FALSE TRUE
     --- function from context ---
    function (IND.relation, t.tnorm, t.aggregation = "t.tnorm", delta = 0.5,
     variance.data = 0.5)
    {
     if (length(IND.relation) == 1) {
     new.IND = IND.relation
     }
     else {
     if (t.aggregation == "custom") {
     new.IND <- t.tnorm(IND.relation)
     }
     else if (t.aggregation == "kernel.frst") {
     distance <- Reduce("+", IND.relation)/length(IND.relation)
     new.IND <- do.call(t.tnorm, list(distance, delta))
     }
     else {
     temp.init <- IND.relation[[1]]
     if (class(t.tnorm) == "character") {
     for (i in 2:length(IND.relation)) {
     temp.init <- do.call(func.tnorm, list(temp.init,
     IND.relation[[i]], t.tnorm))
     }
     }
     else if (class(t.tnorm) == "function") {
     for (i in 1:nrow(IND.relation[[1]])) {
     for (j in 1:ncol(IND.relation[[1]])) {
     temp.left <- IND.relation[[1]][i, j]
     for (k in 2:length(IND.relation)) {
     temp.left <- t.tnorm(temp.left, IND.relation[[k]][i,
     j])
     }
     temp.init[i, j] <- temp.left
     }
     }
     }
     else {
     stop("please enter the correct tnorm operator")
     }
     new.IND <- temp.init
     }
     }
     if (class(new.IND) != "matrix") {
     new.IND = new.IND[[1]]
     }
     return(new.IND)
    }
    <bytecode: 0x2889010>
    <environment: namespace:RoughSets>
     --- function search by body ---
    Function Reduce.IND in namespace RoughSets has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(new.IND) != "matrix") { : the condition has length > 1
    Calls: BC.IND.relation.FRST -> calc.fsimilarity -> Reduce.IND
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 1.3-0
Check: compiled code
Result: NOTE
    File ‘RoughSets/libs/RoughSets.so’:
     Found no calls to: ‘R_registerRoutines’, ‘R_useDynamicSymbols’
    
    It is good practice to register native routines and to disable symbol
    search.
    
    See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc