data-raw/shuttle.R

library(e1071)
library(SparseM)

temp_file <- tempfile()

download.file(
  "https://www.csie.ntu.edu.tw/~cjlin/libsvmtools/datasets/multiclass/shuttle.scale.tr",
  temp_file
)

tmp <- e1071::read.matrix.csr(temp_file, fac = FALSE)

unlink(temp_file)

x <- as.matrix(tmp$x)
y <- tmp$y

cpusmall <- list(x = x, y = y)


usethis::use_data(shuttle, overwrite = TRUE)
jolars/rdatasets documentation built on Oct. 17, 2020, 3:37 p.m.