Last updated on 2025-12-25 19:50:50 CET.
| Package | ERROR | OK |
|---|---|---|
| FuzzyClass | 1 | 12 |
Current CRAN status: ERROR: 1, OK: 12
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
Flavor: r-devel-linux-x86_64-debian-gcc