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 |
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