data-raw/defecttype.R

In youngroklee-ml/dmtr: Functions and Data for "Data Mining Techniques"

## code to prepare `defecttype` dataset goes here

defecttype <- tribble(
  ~id, ~x1, ~x2, ~y,
  1, 0.09, 5.02, 1,
  2, 0.1, 5.01, 1,
  3, 0.12, 4.94, 1,
  4, 0.12, 5.12, 1,
  5, 0.12, 5.03, 1,
  6, 0.12, 4.94, 2,
  7, 0.1, 5.13, 2,
  8, 0.1, 4.87, 1,
  9, 0.1, 5.13, 2,
  10, 0.11, 4.94, 3,
  11, 0.11, 4.93, 3,
  12, 0.09, 5.02, 3,
  13, 0.1, 5.01, 3,
  14, 0.09, 4.94, 3,
  15, 0.1, 5.12, 2,
  16, 0.12, 4.93, 2,
  17, 0.1, 5, 1,
  18, 0.09, 5.01, 3
) %>%
  mutate(y = factor(y, levels = c(1, 2, 3)))

usethis::use_data(defecttype, overwrite = TRUE)