uci_connect.DataGenerator <- function(dataConf) {
n <- dataConf$n #data size
uci.connect.data <- loadPopulationDataFromExternal("connect-4", na.strings = "?", omitNArow=TRUE)
observants <- GenerateObservantsWithReplace(uci.connect.data, n, y_balance = TRUE)
return(observants)
}
uci_connect.Prepackages <- c()
uci_connect.validation <- function(dataConf) {
if(is.null(dataConf$n)) return(FALSE)
return(TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.