Clustering - pam¶

Libraries and Datasets¶

In [1]:

# DAL ToolBox
# version 1.01.727

source("https://raw.githubusercontent.com/cefet-rj-dal/daltoolbox/main/jupyter.R")

#loading DAL
load_library("daltoolbox")

Loading required package: daltoolbox

Registered S3 method overwritten by 'quantmod':
  method            from
  as.zoo.data.frame zoo 


Attaching package: ‘daltoolbox’


The following object is masked from ‘package:base’:

    transform

In [2]:

#load dataset
data(iris)

General entropy of dataset

General function to test clustering methods¶

In [3]:

# setup clustering
model <- cluster_pam(k=3)

In [4]:

# build model
model <- fit(model, iris[,1:4])
clu <- cluster(model, iris[,1:4])
table(clu)

clu
 1  2  3 
50 62 38

In [5]:

# evaluate model using external metric
eval <- evaluate(model, clu, iris$Species)
eval

$clusters_entropy

A tibble: 3 × 4
x	ce	qtd	ceg
<fct>	<dbl>	<int>	<dbl>
1	0.0000000	50	0.00000000
2	0.7706291	62	0.31852668
3	0.2974722	38	0.07535964

$clustering_entropy

0.393886318396649

$data_entropy

1.58496250072116

In [ ]: