Pengujian NaiveBayes data External


Copykan file uji datafixastrid.xlsx ke working directory, 
> getwd()
[1] "C:/Users/ACER/Documents"

> datafixastrid <- read_excel("datafixastrid.xlsx")
> View(datafixastrid)

 #lihat isi
> datafixastrid
# A tibble: 34 x 96
    X__1    DSR  X__2   DUR  X__3     GSR  X__4    DGR  X__5      PKR   X__6   KPR   X__7   KBR
   <dbl>  <dbl> <dbl> <dbl> <dbl>   <dbl> <dbl>  <dbl> <dbl>    <dbl>  <dbl> <dbl>  <dbl> <dbl>
 1 1316. 0.258  1602. 0.314   20. 0.00392  301. 0.0591   50. 0.00981  10466. 2.05   8788. 1.72 
 2 3477. 0.247  2871. 0.204   37. 0.00262  815. 0.0578   26. 0.00184  14824. 1.05  15338. 1.09 
 3  944. 0.179  1037. 0.197   18. 0.00342  387. 0.0736   18. 0.00342   7617. 1.45   5641. 1.07 
 4 1332. 0.205  1340. 0.206   37. 0.00569  362. 0.0557   36. 0.00554   8107. 1.25   6250. 0.961
 5  398. 0.115   681. 0.197    9. 0.00260  197. 0.0570   12. 0.00347   6452. 1.87   4523. 1.31 
 6 1553. 0.190  1208. 0.148   19. 0.00233  253. 0.0310   43. 0.00527  11437. 1.40   8735. 1.07 
 7  191. 0.100   422. 0.222    7. 0.00367  109. 0.0572    8. 0.00420   3600. 1.89   3091. 1.62 
 8  656. 0.0799  857. 0.104   14. 0.00171  207. 0.0252    5. 0.000609  4057. 0.494  3449. 0.420
 9  187. 0.133   403. 0.287    4. 0.00285   84. 0.0599    9. 0.00642   2896. 2.07   1145. 0.817
10  391. 0.193   407. 0.201   14. 0.00690   93. 0.0459    6. 0.00296   2786. 1.37   1169. 0.576
# ... with 24 more rows, and 82 more variables: X__8 <dbl>, KR <dbl>, X__9 <dbl>, KMR <dbl>,
#   X__10 <dbl>, KLR <dbl>, X__11 <dbl>, GR <dbl>, X__12 <dbl>, KFR <dbl>, X__13 <dbl>,
#   TMR <dbl>, X__14 <dbl>, TBR <dbl>, X__15 <dbl>, KTR <dbl>, X__16 <dbl>, TKLR <dbl>,
#   X__17 <dbl>, JR <dbl>, X__18 <dbl>, TPR <dbl>, X__19 <dbl>, TTR <dbl>, X__20 <dbl>,
#   DUP <dbl>, X__21 <dbl>, DGP <dbl>, X__22 <dbl>, PP <dbl>, X__23 <dbl>, BP <dbl>, X__24 <dbl>,
#   KP <dbl>, X__25 <dbl>, KMP <dbl>, X__26 <dbl>, KLP <dbl>, X__27 <dbl>, GP <dbl>, X__28 <dbl>,
#   LMP <dbl>, X__29 <dbl>, JP <dbl>, X__30 <dbl>, TPP <dbl>, X__31 <dbl>, TTP <dbl>,
#   X__32 <dbl>, DSRS <dbl>, X__33 <dbl>, DURS <dbl>, X__34 <dbl>, PRS <dbl>, X__35 <dbl>,
#   BRS <dbl>, X__36 <dbl>, FRS <dbl>, X__37 <dbl>, KMRS <dbl>, X__38 <dbl>, KLRS <dbl>,
#   X__39 <dbl>, GRS <dbl>, X__40 <dbl>, KFRS <dbl>, X__41 <dbl>, TMRS <dbl>, X__42 <dbl>,
#   TBRS <dbl>, X__43 <dbl>, KTRS <dbl>, X__44 <dbl>, TKLRS <dbl>, X__45 <dbl>, JRS <dbl>,
#   X__46 <dbl>, TPKRS <dbl>, X__47 <dbl>, TTRS <dbl>, PNDK <dbl>, IPM <chr>
> dim(datafixastrid)
[1] 34 96

 > datafixastrid[1:5,1:5]

 # A tibble: 5 x 5
   X__1   DSR  X__2   DUR  X__3
  <dbl> <dbl> <dbl> <dbl> <dbl>
1 1316. 0.258 1602. 0.314   20.
2 3477. 0.247 2871. 0.204   37.
3  944. 0.179 1037. 0.197   18.
4 1332. 0.205 1340. 0.206   37.
5  398. 0.115  681. 0.197    9.

 > x=datafixastrid[,-96]
> y=datafixastrid$IPM

 > model = train(x,y,'nb',trControl=trainControl(method='cv',number=10))
Something is wrong; all the Accuracy metric values are missing:
    Accuracy       Kappa    
 Min.   : NA   Min.   : NA  
 1st Qu.: NA   1st Qu.: NA  
 Median : NA   Median : NA  
 Mean   :NaN   Mean   :NaN  
 3rd Qu.: NA   3rd Qu.: NA  
 Max.   : NA   Max.   : NA  
 NA's   :2     NA's   :2    
Error: Stopping
In addition: There were 41 warnings (use warnings() to see them)


> warnings()
Warning messages:
1: Setting row names on a tibble is deprecated.
2: model fit failed for Fold01: usekernel= TRUE, fL=0, adjust=1 Error in density.default(xx, ...) : 
  need at least 2 points to select a bandwidth automatically

 3: Setting row names on a tibble is deprecated.
4: model fit failed for Fold01: usekernel=FALSE, fL=0, adjust=1 Error in NaiveBayes.default(x, y, usekernel = FALSE, fL = param$fL, ...) : 
  Zero variances for at least one class in variables: NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, X__44, TKLRS, NA, NA, NA, NA, NA, NA, NA

 5: Setting row names on a tibble is deprecated.
6: model fit failed for Fold02: usekernel= TRUE, fL=0, adjust=1 Error in density.default(xx, ...) : 
  need at least 2 points to select a bandwidth automatically

 7: Setting row names on a tibble is deprecated.
8: model fit failed for Fold02: usekernel=FALSE, fL=0, adjust=1 Error in NaiveBayes.default(x, y, usekernel = FALSE, fL = param$fL, ...) : 
  Zero variances for at least one class in variables: NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, X__44, TKLRS, NA, NA, NA, NA, NA, NA, NA

 9: Setting row names on a tibble is deprecated.
10: model fit failed for Fold03: usekernel= TRUE, fL=0, adjust=1 Error in density.default(xx, ...) : 
  need at least 2 points to select a bandwidth automatically

 11: Setting row names on a tibble is deprecated.
12: model fit failed for Fold03: usekernel=FALSE, fL=0, adjust=1 Error in NaiveBayes.default(x, y, usekernel = FALSE, fL = param$fL, ...) : 
  Zero variances for at least one class in variables: NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, X__44, TKLRS, NA, NA, NA, NA, NA, NA, NA

 13: Setting row names on a tibble is deprecated.
14: model fit failed for Fold04: usekernel= TRUE, fL=0, adjust=1 Error in density.default(xx, ...) : 
  need at least 2 points to select a bandwidth automatically

 15: Setting row names on a tibble is deprecated.
16: model fit failed for Fold04: usekernel=FALSE, fL=0, adjust=1 Error in NaiveBayes.default(x, y, usekernel = FALSE, fL = param$fL, ...) : 
  Zero variances for at least one class in variables: NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, X__44, TKLRS, NA, NA, NA, NA, NA, NA, NA

 17: Setting row names on a tibble is deprecated.
18: model fit failed for Fold05: usekernel= TRUE, fL=0, adjust=1 Error in density.default(xx, ...) : 
  need at least 2 points to select a bandwidth automatically

 19: Setting row names on a tibble is deprecated.
20: model fit failed for Fold05: usekernel=FALSE, fL=0, adjust=1 Error in NaiveBayes.default(x, y, usekernel = FALSE, fL = param$fL, ...) : 
  Zero variances for at least one class in variables: NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, X__44, TKLRS, NA, NA, NA, NA, NA, NA, NA

 21: Setting row names on a tibble is deprecated.
22: model fit failed for Fold06: usekernel= TRUE, fL=0, adjust=1 Error in density.default(xx, ...) : 
  need at least 2 points to select a bandwidth automatically

 23: Setting row names on a tibble is deprecated.
24: model fit failed for Fold06: usekernel=FALSE, fL=0, adjust=1 Error in NaiveBayes.default(x, y, usekernel = FALSE, fL = param$fL, ...) : 
  Zero variances for at least one class in variables: NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, X__44, TKLRS, NA, NA, NA, NA, NA, NA, NA

 25: Setting row names on a tibble is deprecated.
26: model fit failed for Fold07: usekernel= TRUE, fL=0, adjust=1 Error in density.default(xx, ...) : 
  need at least 2 points to select a bandwidth automatically

 27: Setting row names on a tibble is deprecated.
28: model fit failed for Fold07: usekernel=FALSE, fL=0, adjust=1 Error in NaiveBayes.default(x, y, usekernel = FALSE, fL = param$fL, ...) : 
  Zero variances for at least one class in variables: NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, X__44, TKLRS, NA, NA, NA, NA, NA, NA, NA

 29: Setting row names on a tibble is deprecated.
30: model fit failed for Fold08: usekernel= TRUE, fL=0, adjust=1 Error in density.default(xx, ...) : 
  need at least 2 points to select a bandwidth automatically

 31: Setting row names on a tibble is deprecated.
32: model fit failed for Fold08: usekernel=FALSE, fL=0, adjust=1 Error in NaiveBayes.default(x, y, usekernel = FALSE, fL = param$fL, ...) : 
  Zero variances for at least one class in variables: NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, X__44, TKLRS, NA, NA, NA, NA, NA, NA, NA

 33: Setting row names on a tibble is deprecated.
34: model fit failed for Fold09: usekernel= TRUE, fL=0, adjust=1 Error in density.default(xx, ...) : 
  need at least 2 points to select a bandwidth automatically

 35: Setting row names on a tibble is deprecated.
36: model fit failed for Fold09: usekernel=FALSE, fL=0, adjust=1 Error in NaiveBayes.default(x, y, usekernel = FALSE, fL = param$fL, ...) : 
  Zero variances for at least one class in variables: NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, X__44, TKLRS, NA, NA, NA, NA, NA, NA, NA

 37: Setting row names on a tibble is deprecated.
38: model fit failed for Fold10: usekernel= TRUE, fL=0, adjust=1 Error in density.default(xx, ...) : 
  need at least 2 points to select a bandwidth automatically

 39: Setting row names on a tibble is deprecated.
40: model fit failed for Fold10: usekernel=FALSE, fL=0, adjust=1 Error in NaiveBayes.default(x, y, usekernel = FALSE, fL = param$fL, ...) : 
  Zero variances for at least one class in variables: NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, X__44, TKLRS, NA, NA, NA, NA, NA, NA, NA

 41: In nominalTrainWorkflow(x = x, y = y, wts = weights, info = trainInfo,  ... :
  There were missing values in resampled performance measures.

 Artinya data file external tsb harus dinormalisasi dahulu.................
atau di edit dahulu...silakan amati errornya apa sj...

Komentar

Posting Komentar

Postingan populer dari blog ini

KNN on RStudio Studi Kasus

Gambar
Download Data Training Lakukan perintah dasar pada Rstudio > getwd() [1] "C:/Users/ACER/Documents" > MyData <- read.csv(file="dataTraining.csv", header=TRUE, sep=",") > View(MyData) > names(MyData)  [1] "Win.Loss"       "Optimism"       "Pessimism"      "PastUsed"       "FutureUsed"     "PresentUsed"   [7] "OwnPartyCount"  "OppPartyCount"  "NumericContent" "Extra"          "Emoti"          "Agree"        [13] "Consc"          "Openn"       > attributes(MyData) $names  [1] "Win.Loss"       "Optimism"       "Pessimism"      "PastUsed"       "FutureUsed"     "PresentUsed"   [7] "OwnPartyCount"  "OppPartyCount"  "...
Baca selengkapnya

FIltering DataFrame Manual

library(datasets) data(iris) iris #atau  iris[,] typeof(iris) a=iris[1:5,1] iris[1:5,1:2] iris[1:5,1:3] dim(iris) str(iris) col=length(iris) #5#jika data banyak kolom dia baca banyak kolom bar=length(iris$Sepal.Length) #jika data hanya 1 kolom dia baca banyak baris #iris[1:2] #prioritas kolom DFtranspose = df[FALSE,] #DFtranspose <- as.data.frame(matrix(nrow = 1, ncol = 5)) for(i in 1:bar){     if(iris$Sepal.Length[i]>7.5){       baca=list((iris[i,]))       df= as.data.frame((as.data.frame(baca)))       DFtranspose <- rbind(DFtranspose, df)     } } baca=list((iris[1,])) df1= as.data.frame((as.data.frame(baca))) baca=list((iris[2,])) df2= as.data.frame((as.data.frame(baca))) baca=list((iris[3,])) df3= as.data.frame((as.data.frame(baca))) DFtranspose <- rbind(df1, df2) for(i in 1:jd){  print(MyList[[i]]) } df= as.data.frame((as.data.frame(MyList))) rowname...
Baca selengkapnya

Data Frame

Gambar
> nama <- c("Ana","Banu", "Cici", "Dido", "Erik") > tahun <- c(1992,1995,1993,1999,1994) > lahir <- data.frame(nama, tahun) > lahir   nama tahun 1  Ana  1992 2 Banu  1995 3 Cici  1993 4 Dido  1999 5 Erik  1994 > View(lahir) > lahir$tahun > 1992 [1] FALSE  TRUE  TRUE  TRUE  TRUE > muda <- subset(lahir, lahir$tahun >1994) > muda   nama tahun 2 Banu  1995 4 Dido  1999 > tahun > 1992 [1] FALSE  TRUE  TRUE  TRUE  TRUE > muda <- subset(lahir, tahun >1994) > muda   nama tahun 2 Banu  1995 4 Dido  1999 > muda <- subset(lahir, lahir$tahun >1994) > muda   nama tahun 2 Banu  1995 4 Dido  1999 > lahir   nama tahun 1  Ana  1992 2 Banu  1995 3 Cici  1993 4 Dido  1999 5 Erik  1994 > lahir[-3,]   nama tahun 1  Ana...
Baca selengkapnya