Clustering DBSscan Program with R

=====================================================

Nama Mahasiswa : Syafri Maulana Alfatih

NIM : 220605110139

Kelas : B

Mata Kuliah : Linear Algebra

Dosen Pengampu : Prof.Dr.Suhartono,M.Kom

Prodi : Teknik Informatika

Universitas : UIN Maulana Malik Ibrahim Malang

=====================================================

  library(fpc)
  
iris_1 <- iris[-5]
  
set.seed(220)  # Setting seed
Dbscan_cl <- dbscan(iris_1, eps = 0.45, MinPts = 5)
Dbscan_cl

## dbscan Pts=150 MinPts=5 eps=0.45
##         0  1  2
## border 24  4 13
## seed    0 44 65
## total  24 48 78

Dbscan_cl$cluster

##   [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [38] 1 1 1 1 0 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 0 2 2 0 2 0 2 2 2 2 2 0 2 2 2 2 2
##  [75] 2 2 2 2 2 2 2 2 2 2 2 2 2 0 2 2 2 2 2 0 2 2 2 2 0 2 2 2 2 2 2 0 0 0 0 0 2
## [112] 2 2 2 0 2 2 0 0 2 2 2 0 2 2 0 2 2 2 0 0 0 2 2 0 0 2 2 2 2 2 2 2 2 2 2 2 2
## [149] 2 2

table(Dbscan_cl$cluster, iris$Species)

##    
##     setosa versicolor virginica
##   0      2          7        15
##   1     48          0         0
##   2      0         43        35

plot(Dbscan_cl, iris_1, main = "DBScan")

plot(Dbscan_cl, iris_1, main = "Petal Width vs Sepal Length")