Add car_eval data

Author: coatless

R/car_eval_docs.R

@@ -0,0 +1,28 @@
+#' Car Evaluation Data Set
+#'
+#' Car Evaluation Database was derived from a simple hierarchical decision model
+#' originally developed for the demonstration of DEX.
+#'
+#' @format A data frame with 1728 observations on the following 7 variables.
+#' - `buying`
+#'     - vhigh, high, med, low.
+#' - `maint`
+#'     - vhigh, high, med, low.
+#' - `doors`
+#'      - 2, 3, 4, 5more.
+#' - `persons`
+#'     - 2, 4, more.
+#' - `lug_boot`
+#'     - small, med, big.
+#' - `safety`
+#'     - low, med, high.
+#' - `class_value`
+#'     - unacc, acc, good, vgood
+#' @source
+#' Marko Bohanec (marko.bohanec '@' ijs.si)
+#' Blaz Zupan (blaz.zupan '@' ijs.si)
+#' @references
+#' M. Bohanec, V. Rajkovic: Expert system for decision making. Sistemica 1(1), pp. 145-157, 1990.)
+#' <https://archive.ics.uci.edu/ml/machine-learning-databases/car/car.data>
+#' <https://archive.ics.uci.edu/ml/datasets/Car+Evaluation>
+"car_eval"

README.Rmd

@@ -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)
+- [`car_eval`](https://archive.ics.uci.edu/ml/datasets/Car+Evaluation)
 - [`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

@@ -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)
+-   [`car_eval`](https://archive.ics.uci.edu/ml/datasets/Car+Evaluation)
 -   [`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/car_eval_build.R

@@ -0,0 +1,16 @@
+### UCI Irvine
+## Car Evalutation Data https://archive.ics.uci.edu/ml/datasets/Car+Evaluation
+
+url_car_eval = "https://archive.ics.uci.edu/ml/machine-learning-databases/car/car.data"
+
+car_eval = read.csv(url_car_eval, header = FALSE)
+
+colnames(car_eval) = c("buying",
+                       "maint",
+                       "doors",
+                       "persons",
+                       "lug_boot",
+                       "safety",
+                       "class_value")
+
+devtools::use_data(car_eval, overwrite = TRUE)