tests/demo-kmeans-FLCApply.R

In Fuzzy-Logix/AdapteR: Converts R syntax to SQL to provide fast analytics using in-database C++ library DB Lytix.

## kmeans demo on iris with FLCApply

library(AdapteR)

## This script first tries to create a ODBC connection
if(!exists("connection"))
    connection <- flConnect(odbcSource = "Gandalf")


## If ODBC has failed we try to create a JDBC connection
if(!exists("connection")){
    ## set this to add jdbc driver and security jars to classpath:
    ## terajdbc4.jar tdgssconfig.jar
    ## CAVE: fully qualified PATH required
    yourJarDir <- "/Users/gregor/fuzzylogix"
    connection <- flConnect(host     = "10.200.4.116",
                            database = "Fl_demo",
                            dir.jdbcjars = yourJarDir)
}

data(iris)
options(debugSQL=FALSE)


irisFL <- as.FLTable(iris,connection,"AdapteRiris2")
## or Alternatively irisFL <- FLTable(connection,"FL_DEMO","iris","rownames")

resultList <- FLCApply(data=irisFL,
                       FUN=function(x) kmeans(x,3),
                       column="Species")

print(resultList$setosa)
print(resultList$virginica)
print(resultList$versicolor)

resultList$setosa$centers
resultList$setosa$cluster
resultList$setosa$withinss

resultList$virginica$centers
resultList$virginica$cluster
resultList$virginica$withinss

plot(resultList$virginica)
plot(resultList$versicolor)
plot(resultList$setosa)