Add glass dataset

Author: coatless

R/glass_docs.R

@@ -0,0 +1,40 @@
+#' Glass Identification Data Set
+#'
+#' The study of classification of types of glass was motivated by criminological
+#' investigation. At the scene of the crime, the glass left can be used as
+#' evidence...if it is correctly identified!
+#'
+#' @format A data frame with 214 observations on the following 11 variables.
+#' - `ID`: 1 to 214
+#' - `RI`: refractive index
+#' - `Na`: weight percent in corresponding oxide, as are attributes 4-10)
+#' - `Mg`: Magnesium
+#' - `Al`: Aluminum
+#' - `Si`: Silicon
+#' - `K`: Potassium
+#' - `Ca`: Calcium
+#' - `Ba`: Barium
+#' - `Fe`: Iron
+#' - `Type`: Class attribute
+#'    - 1: building_windows_float_processed
+#'    - 2: building_windows_non_float_processed
+#'    - 3: vehicle_windows_float_processed
+#'    - 4: vehicle_windows_non_float_processed (none in this database)
+#'    - 5: containers
+#'    - 6: tableware
+#'    - 7: headlamps
+#' @source
+#'
+#' B. German
+#' Central Research Establishment
+#' Home Office Forensic Science Service
+#' Aldermaston, Reading, Berkshire RG7 4PN
+#'
+#' Vina Spiehler, Ph.D., DABFT
+#' Diagnostic Products Corporation
+#' (213) 776-0180 (ext 3014)
+#'
+#' @references
+#' <https://archive.ics.uci.edu/ml/machine-learning-databases/glass/glass.data>
+#' <https://archive.ics.uci.edu/ml/datasets/Glass+Identification>
+"glass"

README.Rmd

@@ -14,10 +14,10 @@ knitr::opts_chunk$set(
 
 [![Travis-CI Build Status](https://travis-ci.org/coatless/ucidata.svg?branch=master)](https://travis-ci.org/coatless/ucidata)[![CRAN RStudio mirror downloads](http://cranlogs.r-pkg.org/badges/ucidata)](http://www.r-pkg.org/pkg/ucidata) [![CRAN\_Status\_Badge](http://www.r-pkg.org/badges/version/ucidata)](https://cran.r-project.org/package=ucidata)
 
-# `ucidata` - Data Sets from UC Irving's ML Library 
+# `ucidata` - Data Sets from UC Irvine's ML Library 
 
 The following is an _R_ data package that features certain data sets from 
-the [Machine Learning Library at UC Irving](https://archive.ics.uci.edu/ml/) 
+the [Machine Learning Library at UC Irvine](https://archive.ics.uci.edu/ml/) 
 These data sets have been cleaned up and provide documentation via _R_'s help system. 
 
 ## Installation
@@ -77,6 +77,7 @@ The following data sets are included in the `ucidata` package:
     - [`bcw_original` (Breast Cancer Wisconsin Original)](https://archive.ics.uci.edu/ml/datasets/bike+sharing+dataset)
 - [`bike_sharing_daily`](https://archive.ics.uci.edu/ml/datasets/bike+sharing+dataset)
 - [`bridges`](https://archive.ics.uci.edu/ml/datasets/Pittsburgh+Bridges)
+- [`glass`](https://archive.ics.uci.edu/ml/datasets/Glass+Identification)
 - [`hepatitis`](https://archive.ics.uci.edu/ml/datasets/hepatitis)
 - [`wine`](https://archive.ics.uci.edu/ml/datasets/wine)
 

README.md

@@ -2,10 +2,10 @@
 <!-- README.md is generated from README.Rmd. Please edit that file -->
 [![Travis-CI Build Status](https://travis-ci.org/coatless/ucidata.svg?branch=master)](https://travis-ci.org/coatless/ucidata)[![CRAN RStudio mirror downloads](http://cranlogs.r-pkg.org/badges/ucidata)](http://www.r-pkg.org/pkg/ucidata) [![CRAN\_Status\_Badge](http://www.r-pkg.org/badges/version/ucidata)](https://cran.r-project.org/package=ucidata)
 
-`ucidata` - Data Sets from UC Irving's ML Library
+`ucidata` - Data Sets from UC Irvine's ML Library
 =================================================
 
-The following is an *R* data package that features certain data sets from the [Machine Learning Library at UC Irving](https://archive.ics.uci.edu/ml/) These data sets have been cleaned up and provide documentation via *R*'s help system.
+The following is an *R* data package that features certain data sets from the [Machine Learning Library at UC Irvine](https://archive.ics.uci.edu/ml/) These data sets have been cleaned up and provide documentation via *R*'s help system.
 
 Installation
 ------------
@@ -61,6 +61,7 @@ The following data sets are included in the `ucidata` package:
     -   [`bcw_original` (Breast Cancer Wisconsin Original)](https://archive.ics.uci.edu/ml/datasets/bike+sharing+dataset)
 -   [`bike_sharing_daily`](https://archive.ics.uci.edu/ml/datasets/bike+sharing+dataset)
 -   [`bridges`](https://archive.ics.uci.edu/ml/datasets/Pittsburgh+Bridges)
+-   [`glass`](https://archive.ics.uci.edu/ml/datasets/Glass+Identification)
 -   [`hepatitis`](https://archive.ics.uci.edu/ml/datasets/hepatitis)
 -   [`wine`](https://archive.ics.uci.edu/ml/datasets/wine)
 

data-raw/glass_build.R

@@ -0,0 +1,39 @@
+### UCI Irvine
+## Glass Data https://archive.ics.uci.edu/ml/datasets/Glass+Identification
+
+url_glass = "https://archive.ics.uci.edu/ml/machine-learning-databases/glass/glass.data"
+
+glass = read.csv(url_glass, header = FALSE)
+
+# Columns taken verbatim from ML page
+# Regex search with: [0-9]{1,2}\. (.*) / .* / .* / .*
+# Replacement: "\1",
+var_names =  c("ID",
+               "RI",
+               "Na",
+               "Mg",
+               "Al",
+               "Si",
+               "K",
+               "Ca",
+               "Ba",
+               "Fe",
+               "Type")
+
+# Label column names
+colnames(glass) = var_names
+
+glass = within(glass, {
+  Type = factor(Type, labels = c(
+                "building_windows_float_processed",
+                "building_windows_non_float_processed",
+                "vehicle_windows_float_processed",
+                # "vehicle_windows_non_float_processed", # none in dataset
+                "containers",
+                "tableware",
+                "headlamps"
+                ))
+})
+
+# Save dataset
+devtools::use_data(glass, overwrite = TRUE)