TrainDecisionTree

trainDecisionTree.R

# Get 80% of the data for training
  rowCount <- nrow(ds)
  endRange <- round(rowCount*0.80,0)
  trainingData <- ds[1:endRange,]

tr <- rxDTree(
      IsCardUser~
        
        Gender+
        Occupation+
        MaritalStatus+
        IsHomeOwner+
        TotalChildren+
        NumberCarsOwned+
        AgeRanges+
        CommuteDistance+
        IncomeCategories+
        CountryRegionCode+
        Education,
      
      data=trainingData,
      method="class",
      overwrite = TRUE,
      reportProgress = 0
    )