library(devtools)
load_all()
document()

?makeClusterTask
?makeClusterAnalysis

#Default methods
cluster.task1 = makeClusterTask(id = "iris", data = iris, target = "Species", method = "cluster.kmeans")
cluster.task2 = makeClusterTask(id = "iris", data = iris, target = "Species", method = "cluster.pam")
cluster.task3 = makeClusterTask(id = "iris", data = iris, target = "Species", method = "cluster.h")
cluster.task4 = makeClusterTask(id = "iris", data = iris, target = "Species", method = "cluster.agnes")
cluster.task5= makeClusterTask(id = "iris", data = iris, target = "Species", method = "cluster.diana")
cluster.task6= makeClusterTask(id = "iris", data = iris, target = "Species", method = "cluster.dbscan")
cluster.task7 = makeClusterTask(id = "iris", data = iris, target = "Species", method = "cluster.kkmeans")
cluster.task8 = makeClusterTask(id = "iris", data = iris, target = "Species", method = "cluster.mod")


cluster.analysis1 = makeClusterAnalysis(cluster.task1)
cluster.analysis2 = makeClusterAnalysis(cluster.task2)
cluster.analysis3 = makeClusterAnalysis(cluster.task3)
cluster.analysis4 = makeClusterAnalysis(cluster.task4)
cluster.analysis5 = makeClusterAnalysis(cluster.task5)
cluster.analysis6 = makeClusterAnalysis(cluster.task6)
cluster.analysis7 = makeClusterAnalysis(cluster.task7)
cluster.analysis8 = makeClusterAnalysis(cluster.task8)

cluster.analysis1
cluster.analysis2
cluster.analysis3
cluster.analysis4
cluster.analysis5
cluster.analysis6
cluster.analysis7
cluster.analysis8

##Modify with par.vals
cluster.task1m = makeClusterTask(id = "iris", data = iris, target = "Species", method = "cluster.kmeans",
  par.vals = list(iter.max = 30, algorithm = "MacQueen"))

cluster.task2m = makeClusterTask(id = "iris", data = iris, target = "Species", method = "cluster.pam",
  par.vals = list(metric = "manhattan", do.swap = FALSE))

cluster.task3m = makeClusterTask(id = "iris", data = iris, target = "Species", method = "cluster.h",
  par.vals = list(method = "average"))

cluster.task4m = makeClusterTask(id = "iris", data = iris, target = "Species", method = "cluster.agnes",
  par.vals = list(metric = "manhattan", method = "complete"))

cluster.task5m = makeClusterTask(id = "iris", data = iris, target = "Species", method = "cluster.diana",
  par.vals = list(metric = "manhattan"))

cluster.task6m = makeClusterTask(id = "iris", data = iris, target = "Species", method = "cluster.dbscan",
  par.vals = list(minPts = 10, borderPoints = FALSE))

cluster.task7m = makeClusterTask(id = "iris", data = iris, target = "Species", method = "cluster.kkmeans",
  par.vals = list(kernel = "polydot"))

cluster.task8m = makeClusterTask(id = "iris", data = iris, target = "Species", method = "cluster.mod")

cluster.analysis1m = makeClusterAnalysis(cluster.task1m)
cluster.analysis2m = makeClusterAnalysis(cluster.task2m)
cluster.analysis3m = makeClusterAnalysis(cluster.task3m)
cluster.analysis4m = makeClusterAnalysis(cluster.task4m)
cluster.analysis5m = makeClusterAnalysis(cluster.task5m)
cluster.analysis6m = makeClusterAnalysis(cluster.task6m)
cluster.analysis7m = makeClusterAnalysis(cluster.task7m)
cluster.analysis8m = makeClusterAnalysis(cluster.task8m)

cluster.analysis1m
cluster.analysis2m
cluster.analysis3m
cluster.analysis4m
cluster.analysis5m
cluster.analysis6m
cluster.analysis7m
cluster.analysis8m