# Rattle: Data Mining by Example # # Copyright (c) 2011 Graham.Williams@togaware.com # # Explore our entropy weighted algorithm source("datasets.R") MODEL <- new.env(parent=weatherDS) evalq({ # The 'siatclust' package provides the 'ewkm' function. require(wskm) # Generate a ewkm cluster of size 10. set.seed(42) build.time <- system.time(model <- ewkm(data[-na.obs, numerics], 7)) # The plot shows the relative weight of variables with respect to each cluster. print(levelplot(model)) }, MODEL) MODEL$model MODEL$build.time