R/Apriori-A.R

Defines functions Apriori_A

Documented in Apriori_A

#Class implementing an Association Rules Algorithm
  #Implements the Apriori_A KEEL association rules algorithm
  #Author: Oliver Sanchez

Apriori_A <- function(dat, NumberofPartitionsforNumericAttributes=4,MinimumSupport=0.1,MinimumConfidence=0.8){
  alg <- RKEEL::R6_Apriori_A$new()
  alg$setParameters(dat,NumberofPartitionsforNumericAttributes,MinimumSupport,MinimumConfidence)
  return (alg)
}

R6_Apriori_A <- R6::R6Class("R6_Apriori_A",

  inherit = AssociationRulesAlgorithm,

  public = list(

    #Public properties

    NumberofPartitionsforNumericAttributes=4,
    MinimumSupport=0.1,
    MinimumConfidence=0.8,


    #Public functions

    #Initialize function
    setParameters = function(dat, NumberofPartitionsforNumericAttributes=4,MinimumSupport=0.1,MinimumConfidence=0.8){

      super$setParameters(dat)

      self$NumberofPartitionsforNumericAttributes <- NumberofPartitionsforNumericAttributes
      self$MinimumSupport <- MinimumSupport
      self$MinimumConfidence <- MinimumConfidence

    }

  ),

  private = list(

    #Private properties

    #jar Filename
    jarName = "Apriori.jar",

    #algorithm name
    algorithmName = "Apriori_A",

    #String with algorithm name
    algorithmString = "Apriori_A",

    algorithmOutputNumTxt = 1,


    #Private functions

    #Get the text with the parameters for the config file
    getParametersText = function(){

      text <- ""
      text <- paste0(text, "Number of Partitions for Numeric Attributes = ", self$NumberofPartitionsforNumericAttributes, "\n")
      text <- paste0(text, "Minimum Support = ", self$MinimumSupport, "\n")
      text <- paste0(text, "Minimum Confidence = ", self$MinimumConfidence, "\n")


      return(text)

    }
  )
)

Try the RKEEL package in your browser

Any scripts or data that you put into this service are public.

RKEEL documentation built on Sept. 15, 2023, 1:08 a.m.