Add bridge data

Author: coatless

R/bridges_docs.R

@@ -0,0 +1,46 @@
+#' Pittsburgh Bridges Data Set
+#'
+#' Data containing examples of Pittsburgh bridges and the relevant surrounding
+#' area.
+#'
+#' @format A data frame with 108 observations on the following 13 variables.
+#' - `identif`
+#'     - identifier of the examples
+#' - `river`
+#'     - A, M, O
+#' - `location`
+#'     - Location of Bridge
+#' - `erected`
+#'     - Year built
+#' - `purpose`
+#'     - WALK, AQUEDUCT, RR, HIGHWAY
+#' - `length`
+#'     - 804 - 4558
+#' - `lanes`
+#'     - 1, 2, 4, 6
+#' - `clear_g`
+#'     - N, G
+#' - `t_or_d`
+#'     - THROUGH, DECK
+#' - `material`
+#'     - WOOD, IRON, STEEL
+#' - `span`
+#'     - SHORT, MEDUIM, LONG
+#' - `rel_l`
+#'     - S, S-F, F
+#' - `type`
+#'     - WOOD, SUSPEN, SIMPLE-T, ARCH, CANTILEV, CONT-T
+#' @details
+#' This data set is non-discretized, meaning the numeric properties
+#' were left intact.
+#' @source
+#' Yoram Reich & Steven J. Fenves
+#' Department of Civil Engineering
+#' and
+#' Engineering Design Research Center
+#' Carnegie Mellon University
+#' Pittsburgh, PA 15213
+#' @references
+#' <https://archive.ics.uci.edu/ml/machine-learning-databases/bridges/bridges.data.version1>
+#' <https://archive.ics.uci.edu/ml/datasets/Pittsburgh+Bridges>
+"bridges"

README.Rmd

@@ -73,9 +73,10 @@ The following data sets are included in the `ucidata` package:
 - [`adult`](https://archive.ics.uci.edu/ml/datasets/adult)
 - [`autoimports`](https://archive.ics.uci.edu/ml/datasets/Automobile)
 - [`autompg`](https://archive.ics.uci.edu/ml/datasets/auto+mpg)
-- [`bike_sharing_daily`](https://archive.ics.uci.edu/ml/datasets/bike+sharing+dataset)
 - Breast Cancer Wisconsin:
     - [`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)
 - [`wine`](https://archive.ics.uci.edu/ml/datasets/wine)
 
 ## Build Scripts

README.md

@@ -57,9 +57,10 @@ The following data sets are included in the `ucidata` package:
 -   [`adult`](https://archive.ics.uci.edu/ml/datasets/adult)
 -   [`autoimports`](https://archive.ics.uci.edu/ml/datasets/Automobile)
 -   [`autompg`](https://archive.ics.uci.edu/ml/datasets/auto+mpg)
--   [`bike_sharing_daily`](https://archive.ics.uci.edu/ml/datasets/bike+sharing+dataset)
 -   Breast Cancer Wisconsin:
     -   [`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)
 -   [`wine`](https://archive.ics.uci.edu/ml/datasets/wine)
 
 Build Scripts

data-raw/bridges_build.R

@@ -0,0 +1,38 @@
+## UCI Data
+# Pittsburgh Bridges Data https://archive.ics.uci.edu/ml/datasets/Pittsburgh+Bridges
+
+url_bridges = "https://archive.ics.uci.edu/ml/machine-learning-databases/bridges/bridges.data.version1"
+
+bridges = read.csv(url_bridges,
+                   header = FALSE, na.strings = "?")
+
+# Columns taken verbatim from ML page
+# Regex search with: [0-9]{1,2}\. (.*) / .* / .* / .*
+# Replacement: "\1",
+var_names = c(
+  "IDENTIF",
+  "RIVER",
+  "LOCATION",
+  "ERECTED",
+  "PURPOSE",
+  "LENGTH",
+  "LANES",
+  "CLEAR-G",
+  "T-OR-D",
+  "MATERIAL",
+  "SPAN",
+  "REL-L",
+  "TYPE"
+)
+
+# Label columns
+colnames(bridges) = gsub("-", "_", tolower(var_names))
+
+# Switch from numeric to factor:
+bridges = within(bridges, {
+  erected = factor(erected)
+  lanes = factor(lanes)
+})
+
+devtools::use_data(bridges, overwrite = TRUE)
+