Last updated on 2025-12-26 17:48:36 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.1.7 | 6.28 | 63.52 | 69.80 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 0.1.7 | 4.96 | 45.11 | 50.07 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.1.7 | 13.00 | 111.63 | 124.63 | ERROR | |
| r-devel-linux-x86_64-fedora-gcc | 0.1.7 | 13.00 | 132.18 | 145.18 | ERROR | |
| r-devel-windows-x86_64 | 0.1.7 | 9.00 | 94.00 | 103.00 | OK | |
| r-patched-linux-x86_64 | 0.1.7 | 7.88 | 64.84 | 72.72 | OK | |
| r-release-linux-x86_64 | 0.1.7 | 6.04 | 64.15 | 70.19 | OK | |
| r-release-macos-arm64 | 0.1.7 | OK | ||||
| r-release-macos-x86_64 | 0.1.7 | 5.00 | 94.00 | 99.00 | OK | |
| r-release-windows-x86_64 | 0.1.7 | 10.00 | 89.00 | 99.00 | OK | |
| r-oldrel-macos-arm64 | 0.1.7 | OK | ||||
| r-oldrel-macos-x86_64 | 0.1.7 | 5.00 | 101.00 | 106.00 | OK | |
| r-oldrel-windows-x86_64 | 0.1.7 | 12.00 | 114.00 | 126.00 | OK |
Version: 0.1.7
Check: examples
Result: ERROR
Running examples in ‘FuzzyClass-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: DWFuzzyHipergeometricNaiveBayes
> ### Title: Double Weighted Fuzzy Hipergeometric Naive Bayes
> ### Aliases: DWFuzzyHipergeometricNaiveBayes
>
> ### ** Examples
>
>
> set.seed(1)
>
> substituir_zero <- function(x) {
+ if (x == 0) {
+ while(1){
+ new_valor <- rhyper(1,3,30,10)
+ if(new_valor != 0){
+ return(new_valor)
+ }
+ }
+ } else {
+ return(x)
+ }
+ }
>
> #Building dataframe
> class1 <- data.frame(rhyper(72,3,30,10),
+ sample(seq(1,5),72,replace = TRUE), class = "Bem treinado")
> colnames(class1)[1] <- "sucessos"
> class1$sucessos <- sapply(class1$sucessos, substituir_zero)
> colnames(class1)[2] <- "tentativas"
> colnames(class1)[3] <- "avaliação"
> class2 <- data.frame(rhyper(72,3,17,12),
+ sample(seq(4,7),72,replace = TRUE), class = "Mediano")
> colnames(class2)[1] <- "sucessos"
> #class2$sucessos <- ifelse(class2$sucessos == 0, 2, class2$sucessos)
> colnames(class2)[2] <- "tentativas"
> colnames(class2)[3] <- "avaliação"
> class3 <- data.frame(rhyper(72,3,9,11),
+ sample(seq(7,10),72,replace = TRUE), class = "Precisa treinar")
> colnames(class3)[1] <- "sucessos"
> #class3$sucessos <- ifelse(class3$sucessos == 0, 3, class3$sucessos)
> colnames(class3)[2] <- "tentativas"
> colnames(class3)[3] <- "avaliação"
> data <- rbind(class1,class2,class3)
>
> # Weights
> weta1 <- c(0.22, 0.33, 0.45)
> wdelta1 <- c(0.33,0.33,0.33)
>
> #spliting dataframe
> split <- caTools::sample.split(t(data[, 1]), SplitRatio = 0.7)
> Train <- subset(data, split == "TRUE")
> Test <- subset(data, split == "FALSE")
>
> test <- Test[, -3]
> fit_NHT <- DWFuzzyHipergeometricNaiveBayes(
+ train = Train[, -3],
+ cl = Train[, 3], cores = 2,
+ fuzzy = TRUE,
+ wdelta = wdelta1,
+ weta = weta1)
2.535463
3.704793
5.163978
>
> pred_NHT <- predict(fit_NHT, test)
Error in xtfrm.data.frame(list(X1 = 0.00019180046324433, X2 = 0.000155110502235661, :
cannot xtfrm data frames
Calls: predict ... sapply -> lapply -> FUN -> xtfrm -> xtfrm.data.frame
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Version: 0.1.7
Check: examples
Result: ERROR
Running examples in ‘FuzzyClass-Ex.R’ failed
The error most likely occurred in:
> ### Name: DWFuzzyHipergeometricNaiveBayes
> ### Title: Double Weighted Fuzzy Hipergeometric Naive Bayes
> ### Aliases: DWFuzzyHipergeometricNaiveBayes
>
> ### ** Examples
>
>
> set.seed(1)
>
> substituir_zero <- function(x) {
+ if (x == 0) {
+ while(1){
+ new_valor <- rhyper(1,3,30,10)
+ if(new_valor != 0){
+ return(new_valor)
+ }
+ }
+ } else {
+ return(x)
+ }
+ }
>
> #Building dataframe
> class1 <- data.frame(rhyper(72,3,30,10),
+ sample(seq(1,5),72,replace = TRUE), class = "Bem treinado")
> colnames(class1)[1] <- "sucessos"
> class1$sucessos <- sapply(class1$sucessos, substituir_zero)
> colnames(class1)[2] <- "tentativas"
> colnames(class1)[3] <- "avaliação"
> class2 <- data.frame(rhyper(72,3,17,12),
+ sample(seq(4,7),72,replace = TRUE), class = "Mediano")
> colnames(class2)[1] <- "sucessos"
> #class2$sucessos <- ifelse(class2$sucessos == 0, 2, class2$sucessos)
> colnames(class2)[2] <- "tentativas"
> colnames(class2)[3] <- "avaliação"
> class3 <- data.frame(rhyper(72,3,9,11),
+ sample(seq(7,10),72,replace = TRUE), class = "Precisa treinar")
> colnames(class3)[1] <- "sucessos"
> #class3$sucessos <- ifelse(class3$sucessos == 0, 3, class3$sucessos)
> colnames(class3)[2] <- "tentativas"
> colnames(class3)[3] <- "avaliação"
> data <- rbind(class1,class2,class3)
>
> # Weights
> weta1 <- c(0.22, 0.33, 0.45)
> wdelta1 <- c(0.33,0.33,0.33)
>
> #spliting dataframe
> split <- caTools::sample.split(t(data[, 1]), SplitRatio = 0.7)
> Train <- subset(data, split == "TRUE")
> Test <- subset(data, split == "FALSE")
>
> test <- Test[, -3]
> fit_NHT <- DWFuzzyHipergeometricNaiveBayes(
+ train = Train[, -3],
+ cl = Train[, 3], cores = 2,
+ fuzzy = TRUE,
+ wdelta = wdelta1,
+ weta = weta1)
2.535463
3.704793
5.163978
>
> pred_NHT <- predict(fit_NHT, test)
Error in xtfrm.data.frame(list(X1 = 0.00019180046324433, X2 = 0.000155110502235661, :
cannot xtfrm data frames
Calls: predict ... sapply -> lapply -> FUN -> xtfrm -> xtfrm.data.frame
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc