# NOT RUN {
#########################
# Training Setup
#########################
# Create fake data
data <- RemixAutoML::FakeDataGenerator(
Correlation = 0.85,
N = 1000,
ID = 2,
ZIP = 0,
AddDate = TRUE,
Classification = FALSE,
MultiClass = FALSE)
# Run function
data <- RemixAutoML::AutoClustering(
data,
FeatureColumns = names(data)[2:(ncol(data)-1)],
ModelID = "TestModel",
SavePath = getwd(),
NThreads = 8,
MaxMemory = "28G",
MaxClusters = 50,
ClusterMetric = "totss",
RunDimReduction = TRUE,
ShrinkRate = (sqrt(5) - 1) / 2,
Epochs = 5L,
L2_Reg = 0.10,
ElasticAveraging = TRUE,
ElasticAveragingMovingRate = 0.90,
ElasticAveragingRegularization = 0.001)
#########################
# Scoring Setup
#########################
Sys.sleep(10)
# Create fake data
data <- RemixAutoML::FakeDataGenerator(
Correlation = 0.85,
N = 1000,
ID = 2,
ZIP = 0,
AddDate = TRUE,
Classification = FALSE,
MultiClass = FALSE)
# Run function
data <- RemixAutoML::AutoClusteringScoring(
data,
FeatureColumns = names(data)[2:(ncol(data)-1)],
ModelID = "TestModel",
SavePath = getwd(),
NThreads = 8,
MaxMemory = "28G",
DimReduction = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab