Nothing
ubOver <-
function(X, Y, k = 0, verbose=TRUE) {
stopifnot(k >= 0, class(verbose) == "logical", all(unique(Y) %in% c(0, 1)))
i.1 <- which(Y == 1)
N.1 <- length(i.1)
i.0 <- which(Y == 0)
N.0 <- length(i.0)
max.k <- floor(N.0/N.1)
if (k == 0) {
# sample with replacement from the minority class to obtain a balanced dataset
i.1.over <- sample(i.1, N.0, replace = TRUE)
}
if (k > 0) {
# sample with replacement from the minority class until we have k-times the orginal number of 1s
N.1.over <- N.1 * k
if (N.1.over > N.0) {
if (verbose)
cat("Max number of times allowed to replicate minority class is", max.k,
"\n taking as many samples as the majority class \n")
N.1.over <- N.0
}
i.1.over <- sample(i.1, N.1.over, replace = TRUE)
}
Id = c(i.0, i.1.over)
Id <- sort(Id)
if (is.vector(X) != TRUE)
X = X[Id, ] else X = X[Id]
Y = Y[Id]
return(list(X = X, Y = Y))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.