#' Create G241C dataset from the SSL benchmarks
#'
#' Task:
#' formula(Class ~ .)
#'
#' @inheritParams createDiabetes
#' @export
createG241C <- function(file=getfilepath("g241c.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=5,data.mat"))
data<-data.table(ds$X,Class=factor(ds$y))
if (write) {
saveRDS(data, file=file)
}
} else {
data<-readRDS(file)
}
return(data)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.