This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# FILE: Classifying Breast Cancer as Benign or Malignant | |
# AUTHOR: Timothy P. Jurka | |
library(RTextTools); | |
# GET THE BREAST CANCER DATA FROM http://archive.ics.uci.edu/ml/machine-learning-databases/breast-cancer-wisconsin/wdbc.names | |
data <- read.csv("http://archive.ics.uci.edu/ml/machine-learning-databases/breast-cancer-wisconsin/breast-cancer-wisconsin.data",header=FALSE) | |
data <- data[-1] | |
# ADD TEXTUAL DESCRIPTORS FOR EACH MASS CHARACTERISTIC FOR THE DOCUMENT-TERM MATRIX |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(RTextTools) # LOAD THE RTextTools PACKAGE | |
set.seed(95616) # SET THE SEED FOR REPLICABILITY | |
url <- "http://archive.ics.uci.edu/ml/machine-learning-databases/breast-cancer-wisconsin/breast-cancer-wisconsin.data" | |
data <- read.csv(url,header=FALSE) # GET THE BREAST CANCER DATA | |
data <- data[-1] # STRIP PATIENT IDs | |
diagnosis <- data[,10] # GET THE DEPENDENT VARIABLE: THE DIAGNOSIS | |
characteristics <- data[,1:9] # GET THE CHARACTERISTICS OF THE MASS |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(RTextTools) # LOAD THE RTextTools PACKAGE | |
set.seed(95616) # SET THE SEED FOR REPLICABILITY | |
url <- "http://archive.ics.uci.edu/ml/machine-learning-databases/breast-cancer-wisconsin/breast-cancer-wisconsin.data" | |
data <- read.csv(url,header=FALSE) # GET THE BREAST CANCER DATA | |
data <- data[-1] # STRIP PATIENT IDs | |
diagnosis <- data[,10] # GET THE DEPENDENT VARIABLE: THE DIAGNOSIS | |
characteristics <- data[,1:9] # GET THE CHARACTERISTICS OF THE MASS |