7 5-Folds for Artificial Neural Networks (1 LAYER)

See Github for code JohnAtMill

library(neuralnet)

## Warning: package 'neuralnet' was built under R version 4.0.5

## 
## Attaching package: 'neuralnet'

## The following object is masked from 'package:dplyr':
## 
##     compute

library(pROC)

Average.AUC.ANN1<-print(paste("Average of AUC:", mean(discri.rate)))

## [1] "Average of AUC: 0.982503377597431"

Average.Misclass<-print(paste("Average of Miss:", mean(mis.class.rate)))

## [1] "Average of Miss: 0.0339483908634224"

AUC.ANN1<-mean(discri.rate)
Miss.rate.ANN1<-mean(mis.class.rate)

7.1 ARTIFICIAL NEURAL NETWORK 2 (2 layers)

plot(fit.ann2)

Average.AUC.ANN2<-print(paste("Average of AUC:", mean(discri.rate)))

## [1] "Average of AUC: 0.976097278657155"

Average.Misclas.ANN2<-print(paste("Average of Miss:", mean(mis.class.rate)))

## [1] "Average of Miss: 0.0369557307201374"

AUC.ANN2<-mean(discri.rate)
Miss.rate.ANN2<-mean(mis.class.rate)

Note ⁴

---

4. ANN 1 AUC: 0.94, MisClassification Rate: 0.043–ANN 2 AUC: 0.95, MisClassification Rate: 0.039↩︎