## not run
## Wine Quality Data Set
## http://archive.ics.uci.edu/ml/datasets/Wine+Quality
# data(wineQualityRed)
# X = wineQualityRed[, -ncol(wineQualityRed)]
## 1 - run unsupervised analysis on the first half of dataset
# subset.1 = 1:floor(nrow(X)/2)
# wineQualityRed.model.1 = unsupervised.randomUniformForest(X, subset = subset.1,
# baseModel = "proximityThenDistance")
## assess roughly the model and visualize
# wineQualityRed.model.1
# plot(wineQualityRed.model.1)
## 2 - run unsupervised analysis on the second half of dataset
# wineQualityRed.model.2 = unsupervised.randomUniformForest(X, subset = -subset.1)
## 3 - combine
# wineQualityRed.combinedModel =
# combine.unsupervised(wineQualityRed.model.1, wineQualityRed.model.2)
## visualize and plot
# wineQualityRed.combinedModel
# plot(wineQualityRed.combinedModel)
# compare with the full data
# wineQualityRed.model = unsupervised.randomUniformForest(X,
# baseModel = "proximityThenDistance")Run the code above in your browser using DataLab