# NOT RUN {
# Create Fake Data
data <- RemixAutoML::FakeDataGenerator(
Correlation = 0.85,
N = 25000,
ID = 2L,
ZIP = 0,
FactorCount = 2L,
AddDate = FALSE,
Classification = FALSE,
MultiClass = FALSE)
# Columns to transform
Cols <- names(data)[1L:11L]
print(Cols)
data <- data[1]
# Run function
Output <- RemixAutoML::AutoTransformationCreate(
data,
ColumnNames = Cols,
Methods = c("YeoJohnson", "BoxCox", "Asinh", "Log", "LogPlus1", "Sqrt", "Asin", "Logit", "Identity"),
Path = getwd(),
TransID = "Model_1",
SaveOutput = TRUE)
# Output
data <- Output$Data
TransInfo <- Output$FinalResults
# Back Transform
data <- RemixAutoML::AutoTransformationScore(
data,
FinalResults = TransInfo,
Path = NULL,
TransID = "Model_1")
# }
Run the code above in your browser using DataLab