# Rattle: Data Mining by Example # # Copyright (c) 2011 Graham.Williams@togaware.com # # The iris dataset is also interesting. source("datasets.R") MODEL <- new.env(parent=irisDS) evalq({ require(wskm) set.seed(42) build.time<- system.time(model <- ewkm(data[numerics], 3)) print(levelplot(model)) }, MODEL) MODEL$model MODEL$build.time