R/createSSLText.R

In jkrijthe/createdatasets: Download and preprocess common benchmark dataset for use in reproduceable simulation studies

#' Create SSL Text dataset from the SSL benchmarks
#'
#'  Task:
#'  formula(Class ~ .)
#' Note: output is not a datatable but a sparse Matrix
#' Cite: Chapelle
#'
#' @inheritParams createDiabetes
#' @export
createSSLText <- function(file=getfilepath("SSLText.rds"),write=TRUE,read=TRUE) {
  # Check if the user forced the recreation of the datasets or whether the datafile is missing on disk
  if (!read | !file.exists(file)) {
    requireNamespace("R.matlab")

    ds<-readMat(url("http://olivier.chapelle.cc/ssl-book/SSL,set=9,data.mat"))
    data<-list(X=ds$X,Class=factor(ds$y))
    
    if (write) {
      saveRDS(data, file=file)
    }
  } else {
    data<-readRDS(file)
  }
  
  return(data) 
}