data-raw/cancer_sample.R

In UBC-MDS/datateachr: Data collected to use for teaching at the University of British Columbia

library(tidyverse)

url <- "https://archive.ics.uci.edu/ml/machine-learning-databases/breast-cancer-wisconsin/wdbc.data"
cancer_sample <- read_csv(url,
  col_names = c(
    "ID", "diagnosis", "radius_mean", "texture_mean", "perimeter_mean",
    "area_mean", "smoothness_mean", "compactness_mean", "concavity_mean",
    "concave_points_mean", "symmetry_mean", "fractal_dimension_mean",
    "radius_se", "texture_se", "perimeter_se", "area_se", "smoothness_se",
    "compactness_se", "concavity_se", "concave_points_se", "symmetry_se",
    "fractal_dimension_se", "radius_worst", "texture_worst", "perimeter_worst",
    "area_worst", "smoothness_worst", "compactness_worst", "concavity_worst",
    "concave_points_worst", "symmetry_worst", "fractal_dimension_worst"
  )
)

save(cancer_sample, file = "data/cancer_sample.rda", compress = 'bzip2')
saveRDS(cancer_sample, "tests/testthat/cancer_sample.rds")