Huntington <- local({
  file <- system.file("extdata", "borovecki.csv", package = "RPWNSC")
  if (!nzchar(file)) {
    file <- file.path("inst", "extdata", "borovecki.csv")
  }
  dat <- utils::read.csv(file, header = FALSE, check.names = FALSE, stringsAsFactors = FALSE)
  feature_names <- make.names(as.character(dat[-nrow(dat), 1]), unique = TRUE)
  X <- t(as.matrix(dat[-nrow(dat), -1, drop = FALSE]))
  storage.mode(X) <- "double"
  colnames(X) <- feature_names
  rownames(X) <- paste0("Sample", seq_len(nrow(X)))
  Y <- factor(as.character(unlist(dat[nrow(dat), -1, drop = TRUE])))
  list(X = X, Y = Y)
})
