DATA MINING Desktop Survival Guide by Graham Williams
Desktop Survival Project Home Introduction Getting Started The Business Problem Data Loading Data Exploring Data Interactive Graphics Statistical Tests Models Network Analysis Text Mining Decision Trees Random Forests Boosting Bagging Support Vector Machine Linear Regression Neural Network Naive Bayes Survival Analysis Evaluation and Deployment Transforming Data Deployment Troubleshooting Issues Moving into R R Getting Help Data Graphics in R Understanding Data Preparing Data Issues Evaluating Models Reporting Fraud Analysis Archetype Analysis Algorithms Bayes Classifier K-Nearest Neighbours Linear Models Open Products AlphaMiner Borgelt Data Mining Suite KNime R Rattle Weka Closed Products Clementine Equbits Foresight GhostMiner InductionEngine ODM Enterprise Miner Statistica Data Miner TreeNet Virtual Predict Installing Rattle Projects Bibliography Index Preface Goals Organisation Features Audience Typographical Conventions A Note on Languages Currency Acknowledgements Introduction Data Mining The Business Problem Types of Analysis Data Mining Applications A Framework for Modelling Agile Data Mining R Rattle Why R and Rattle? Data Preparation Number of Algorithms Repeatability Performance Open Source Data Mining Business Case Sample Business Case Pros and Cons Books on R Getting Started Initial Interaction with R Quitting Rattle and R First Contact Loading a Dataset Building a Model Understanding Our Data Evaluating the Model Evaluating the Model Interacting with R Interacting with Rattle Projects Toolbar Menus Interacting with Plots Keyboard Navigation Summary Command Summary The Business Problem Solar Panel Efficiency Water Collection Others Other Business Problems Fraud Detection Loan Approval Documenting the Business Problem Summary Resources Exercises Data Data Nomenclature Loading Data into Rattle CSV Data Datasets Reading Direct from URL Play Golf Weather Data Other Data Sources ARFF Data ODBC Sourced Data Setting Up a Data Source Name Netezza Setup Teradata Setup R Data R Dataset Data Entry Data Tab Options in Rattle Sampling Data Variable Roles Automatic Role Identification Weights Calculator Manipulating Data Loading Data CSV Data Locating and Loading Data Loading the File CSV Options Basic Data Summary ARFF Data ODBC Sourced Data R Dataset R Data Library Data Options Sampling Data Variable Roles Automatic Role Identification Weights Calculator Command Summary Exploring Data Summarising Data Summary Describe Basics Kurtosis Skewness Missing Exploring Distributions Box Plot Histogram Cumulative Distribution Plot Benford's Law Other Digits Stratified Benford Plots Bar Plot Dot Plot Mosaic Plot GGobi Scatterplot Data Viewer Brushing Identify Multivariate Outliers Other Options Quality Plots Using R Further GGobi Documentation Correlation Analysis Hierarchical Correlation Principal Components Single Variable Overviews Interactive Graphics Interactive Visualisations Latticist GGobi Scatterplot Multiple Plots Brushing Other Plots Data Viewer Brushing Identify Multivariate Outliers Other Options Quality Plots Using R Further GGobi Documentation Documenting Interactive Explorations Code Review Chapter Exercises Command Summary Statistical Tests Documenting Interactive Explorations Code Review Further Resources Chapter Exercises Command Summary Models A Framework for Modelling Descriptive Analytics Predictive Analytics Documenting Models Summary Code Review Exercises Further Resources Command Summary Cluster Analysis Summary Clusters Basic Clustering Hot Spots Alternative Clustering Other Cluster Examples KMeans Export KMeans Clusters Discriminant Coordinates Plot Number of Clusters Hierarchical Clusters Other Cluster Algorithms Association Analysis Summary Overview Algorithm Usage Read Transactions file format sep cols rm.duplicates Summary Apriori data parameter appearance control Inspect Examples Video Marketing Survey Data Other Examples Resources and Further Reading Basket Analysis General Rules Network Analysis Documenting Interactive Explorations Code Review Chapter Exercises Command Summary Text Mining Application to Text Text Mining with R Decision Trees Knowledge Representation Search Heuristic Measures Tutorial Example Rattle R Tuning Parameters Min Split (Rarg[]minsplit) Min Bucket (minbucket) Priors (prior) Loss Matrix Complexity (cp) Other Options Simple Example Convert Tree to Rules Predicting Salary Group Issues Summary Code Review Iris Wine Exercises Resources Command Summary Random Forests Formalities Tutorial Example Tuning Parameters Number of Trees Sample Size Number of Variables Summary Overview Algorithm Usage Random Forest importance classwt Examples Resources and Further Reading Summary Overview Example Algorithm Resources and Further Reading Boosting Formalities Tutorial Example Tuning Parameters Summary Overview AdaBoost Algorithm Examples Step by Step Using gbm Extensions and Variations Alternating Decision Tree Resources and Further Reading Documenting Code Review Further Resources Chapter Exercises Command Summary Bootstrapping Summary Usage Further Information Summary Overview Example Algorithm Resources and Further Reading Bagging Support Vector Machine Formalities Tutorial Example Tuning parameters Examples Resources and Further Reading Overview Examples Resources and Further Reading Linear Regression Linear Regression Formalities Tutorial Example Tuning parameters Generalized Regression Formalities Tutorial Example Tuning parameters Logistic Regression Formalities Tutorial Example Tuning parameters Discussion Probit Regression Formalities Tutorial Example Tuning Parameters Multinomial Regression Formalities Tutorial Example Tuning Parameters Neural Network Formalities Tutorial Example Tuning parameters Documenting Code Review Further Resources Chapter Exercises Command Summary Naive Bayes Summary Code Review Resources Exercises Command Summary Survival Analysis Sample Data Simple Lung Descriptive Analysis Regression survreg Simple Lung coxph Simple Lung Apply to New Data More Input Variables Decision Tree Example from Singer and Willett Other Approaches Design Package Random Survival Forests Prediction on Test Data Evaluation The Evaluate Tab Confusion Matrix Measures Graphical Measures Risk Charts Cost Curves Lift ROC Curves Area Under Curve Precision versus Recall Sensitivity versus Specificity Predicted versus Observed Scoring Documenting Interactive Explorations Code Review Chapter Exercises Command Summary Transforming Data Rescale Data Recenter Scale [0,1] Rank Median/MAD Peer Relativity Profiling Index Impute Zero/Missing Mean/Median/Mode Constant Remap Binning Indicator Variables Join Categorics Math Transforms Outliers Cleanup Delete Ignored Delete Selected Delete Missing Delete Obs with Missing Other Transformations Removing Duplicates Command Summary Deployment Documenting Deployment Code Review Chapter Exercises Command Summary Troubleshooting Cairo A factor has new levels Issues Model Selection Overfitting Imbalanced Classification Sampling Cost Based Learning Model Deployment and Interoperability SQL PMML XML for Data Bibliographic Notes Documenting Code Review Chapter Exercises Command Summary Moving into R Interacting with R Basic Command Line Windows, Icons, Mouse, Pointer--WIMP The Current Rattle State Samples Projects The Rattle Log Further Tuning Models Emacs and ESS Documenting Code Review Chapter Exercises Command Summary R Evaluation Exercises Assignment Libraries and Packages Searching for Objects Package Management Information About a Package Testing Package Availability Packages and Namespaces Basic Programming in R Principles Folders and Files Flow Control If Statement For Loop Functions Apply Methods Objects System Running System Commands System Parameters Misc Internet Memory Management Memory Usage Garbage Collection Errors Frivolous Sudoku Further Resources Using R Specific Purposes Survey Analysis Getting Help R Documentation Data Data Types Numbers Strings Building Strings Splitting Strings Substitution Trim Whitespace Evaluating Strings Logical Dates and Times Space Data Structures Vectors Arrays Lists Sets Matricies Exercises Data Frames Accessing Columns Removing Columns Exercises General Manipulation Factors Elements Rows and Columns Finding Index of Elements Partitions Head and Tail Reverse a List Sorting Unique Values Loading Data Interactive Responses Interactive Data Entry Available Datasets The Iris Dataset CSV Data Used In The Book The Wine Dataset The Cardiac Arrhythmia Dataset The Adult Survey Dataset Foreign Formats Stata Data Conversions Reading Variable Width Data Saving Data Formatted Output Automatically Generate Filenames Reading a Large File Manipulating Data Manipulating Data As SQL Using SQLite ODBC Data Database Connection Excel Access Clipboard Data Spatial Data Simple Map A Density Map Overlays and Point in Polygon Other Data Formats Fixed Width Data Global Positioning System Documenting a Dataset Common Data Problems Graphics in R Basic Plot Controlling Axes Arrow Axes Legends and Points Tables Within Plots Colour Labels in Plots Axis Labels Legend Labels Within Plots Maths in Labels Multiple Plots MatPlot Multiple Plots Using ggplot2 Using GGPlot Networks Symbols Other Graphic Elements Making an Animation Animated Mandelbrot Adding a Logo to a Graphic Graphics Devices Setup Screen Devices Multiple Devices File Devices Multiple Plots Copy and Print Devices Graphics Parameters Plotting Region Locating Points on a Plot Scientific Notation and Plots Understanding Data Single Variable Overviews Textual Summaries Multiple Line Plots Separate Line Plots Pie Chart Fan Plot Stem and Leaf Plots Histogram Barplot Trellis Histogram Histogram Uneven Distribution Bump Chart Density Plot Basic Histogram Basic Histogram with Density Curve Practical Histogram Multiple Variable Overviews Scatterplot Scatterplot with Marginal Histograms Multi-Dimension Scatterplot Correlation Plot Colourful Correlations Fluctuation Plot Heat Map Projection Pursuit RADVIZ Parallel Coordinates Categoric and Numeric Measuring Data Distributions Textual Summaries Boxplot Multiple Boxplots Boxplot by Class Tuning a Boxplot Boxplot Using Lattice Boxplot Using ggplot Violin Plot What Distribution Miscellaneous Plots Line and Point Plots Matrix Data Multiple Plots Aligned Plots Probability Scale Network Plot Sunflower Plot Stairs Plot Graphing Means and Error Bars Bar Charts With Segments Bar Plot With Means 3d Bar Plot Stacks Versus Lines Multi-Line Title Mathematics Plots for Normality Basic Bar Chart Bar Chart Displays Multiple Dot Plots Alternative Multiple Dot Plots 3D Plot Clustered Box Plot Perspective Plots Star Plot Residuals Plot Waterfall Plots Dates and Times Simple Time Series Multiple Time Series Plot Time Series Plot Time Series with Axis Labels Grouping Time Series for Box Plot Time Series Heatmap Textual Summaries Stem and Leaf Plots Histogram Barplot Density Plot Basic Histogram Basic Histogram with Density Curve Practical Histogram Correlation Plot Colourful Correlations Measuring Data Distributions Textual Summaries Boxplot Multiple Boxplots Boxplot by Class Box and Whisker Plot Box and Whisker Plot Clustered Box Plot Further Resources Map Displays Further Resources Preparing Data Data Selection and Extraction Training and Test Datasets Data Cleaning Review Data Selectively Changing Vector Values Replace Indices By Names Missing Values Remove Levels from a Factor Variable Manipulations Remove Columns Reorder Columns Remove Non-Numeric Columns Remove Variables with no Variance Cleaning the Wine Dataset Cleaning the Cardiac Dataset Cleaning the Survey Dataset Imputation Nearest Neighbours Multiple Imputation Data Linking Simple Linking Record Linkage Data Transformation Aggregation Sum of Columns Pivot Tables Normalising Data Binning Interpolation Variable Selection Classification Classification Classification Issues Incremental or Online Modelling Model Tuning Tuning rpart Unbalanced Classification Building Models Temporal Analysis Evaluation Basics Basic Measures Cross Validation Graphical Performance Measures Lift The ROC Curve Other Examples 10 Fold Cross Validation Area Under Curve Calibration Curves Reporting Generating Open Document Format Getting Started with odfWeave OpenOffice.org Macro Support Generating HTML Generating PDF with LATEX Configuration Figure Sizes Fraud Analysis Archetype Analysis

Step by Step

The learner deployed in the AdaBoost algorithm is typically a decision tree learner that builds no more than a single split decision tree (also called a decision stump). Such a decision tree can be built in R using rpart and we illustrate this in the following code segments.

First we load the wine dataset and extract the input variables ($x$) and the output variable ($y$). For a simple application of the algorithm, we'll have only a binary output (predicting $Type==1$), and again for mathematical convenience we'll predict 1 or -1:

> library(rpart)
> load("wine.RData")
> N <- nrow(wine) # 178
> M <- ncol(wine) # 14
> x <- as.matrix(wine[,2:M])
> y <- as.integer(wine[,1])
> y[y>1] <- -1 
> y
  [1]  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1
[...]
[176] -1 -1 -1

Now we'll initialise the observation weights and build the first model. We first set the weights to all be the same, and then set up an rpart.control structure for building a decision tree stump. The control simply includes the Roption[]maxdepth option set to 1 so that a single level tree is built:

> w <- rep(1/N, N)
> w
  [1] 0.005617978 0.005617978 0.005617978 0.005617978 0.005617978 0.005617978
[...]
[175] 0.005617978 0.005617978 0.005617978 0.005617978
> control <- rpart.control(maxdepth=1)
> M1 <- rpart(y ~ x, weights=w/mean(w), control=control, method="class")
> M1
n= 178 

node), split, n, loss, yval, (yprob)
      * denotes terminal node

1) root 178 59 -1 (0.66853933 0.33146067)  
  2) x.Proline< 755 111  2 -1 (0.98198198 0.01801802) *
  3) x.Proline>=755 67 10 1 (0.14925373 0.85074627) *

We see that the decision tree algorithm has chosen Proline to split the data on, at a split point of 755. For Proline less than 755 the decision is -1 with probability 0.98, and for Proline greater than or equal to 755 the decision is 1 with probability 0.85.

We now need to find those entities which are incorrectly classified by the model. The R code here calls predict to apply the model M1 to the dataset it was built from. From this result we get the second column which is the list of probabilities for each observation being in class 1. If this probability is above 0.5 then the result is 1, otherwise it is -1 (multiplying the logical value by 2 and then subtracting 1 achieves this since TRUE is regarded as 1 and FALSE as 0). The resulting class is then compared to the y's and which returns the index of those entities for which the prediction differs from the actual class.

> ms <- which(((predict(M1)[,2]>0.5)*2)-1 != y)
> names(ms) <- NULL
> ms
 [1]   5  44  71  74  75  96 142 145 146 158 176 177

We can now calculate the model weight and update the observation weights, dividing by the resulting sum of weights to get a normalised value (so that sum(w) is 1:

> e1 <- sum(w[ms])/sum(w) # 0.06741573
> a1 <- log((1-e1)/e1)    # 2.627081  
> w[ms]  <- w[ms]*exp(a1)
> w[ms]
 [1] 0.07771536 0.07771536 0.07771536 0.07771536 0.07771536 0.07771536
 [7] 0.07771536 0.07771536 0.07771536 0.07771536 0.07771536 0.07771536

We build our second model:

> M2 <- rpart(y ~ x, weights=w/mean(w), control=control, method="class")
> M2

n= 178 

node), split, n, loss, yval, (yprob)
      * denotes terminal node

1) root 178 45.3935700 -1 (0.744979920 0.255020080)  
  2) x.Flavanoids< 2.31 101  0.5361446 -1 (0.995381062 0.004618938) *
  3) x.Flavanoids>=2.31 77 17.0672700 1 (0.275613276 0.724386724) * 
> ms <- which(((predict(M2)[,2]>0.5)*2)-1 != y)
> names(ms) <- NULL
> ms
 [1]  28  64  66  67  72  74  80  82  98  99 100 110 111 121 122 124 125 126 127
[20] 129
> e2 <- sum(w[ms])/sum(w) # 0.09889558
> a2 <- log((1-e2)/e2)    # 2.209557
> w[ms]  <- w[ms]*exp(a2)
> w[ms]
 [1] 0.05118919 0.05118919 0.05118919 0.05118919 0.05118919 0.70811707
 [7] 0.05118919 0.05118919 0.05118919 0.05118919 0.05118919 0.05118919
[13] 0.05118919 0.05118919 0.05118919 0.05118919 0.05118919 0.05118919
[19] 0.05118919 0.05118919

And then our third model:

> M3 <- rpart(y ~ x, weights=w/mean(w), control=control, method="class")
> M3
n= 178 

node), split, n, loss, yval, (yprob)
      * denotes terminal node

1) root 178 27.60091 -1 (0.84493870 0.15506130)  
  2) x.Proline< 987.5 134 12.09805 -1 (0.92554915 0.07445085) *
  3) x.Proline>=987.5 44  0.00000 1 (0.00000000 1.00000000) *
> ms <- which(((predict(M3)[,2]>0.5)*2)-1 != y)
> names(ms) <- NULL
> ms
 [1]  5 20 21 22 25 26 29 36 37 40 41 44 45 48 57
> e3 <- sum(w[ms])/sum(w)
> e3
[1] 0.06796657
> a3 <- log((1-e3)/e3)
> a3
[1] 2.618353

The final model, if we chose to stop here, is then:

$$\mathcal{M}(x) = 2.627081*\mathcal{M}_1(x) + 2.209557*\mathcal{M}_2(x) + 2.618353*\mathcal{M}_3(x)$$

Support further development through the purchase of the PDF version of the book.
The PDF version is a formatted comprehensive draft book (with over 800 pages).
Brought to you by Togaware. This page generated: Sunday, 22 August 2010