# NOT RUN {
## load SIRUS
require(sirus)
## prepare data
data <- iris
y <- rep(0, nrow(data))
y[data$Species == 'setosa'] = 1
data$Species <- NULL
#' ## fit SIRUS
sirus.m <- sirus.fit(data, y)
## predict
predictions <- sirus.predict(sirus.m, data)
# }
Run the code above in your browser using DataLab