if(requireNamespace("FCPS")){
data(Hepta)
Data=Hepta$Data
Cls=Hepta$Cls
#parametric
#V=Train_naiveBayes(Data,Cls,Gaussian=TRUE)
#ClsTrain=V$ClsTrain
#table(Cls,ClsTrain)
#non-parametric
V=Train_naiveBayes(Data,Cls,Gaussian=FALSE)
ClsTrain=V$ClsTrain
table(Cls,ClsTrain)
}
Run the code above in your browser using DataLab