# Basic usage
data <- db5[1:20,]
result <- dbscan(data, epsilon = 0.3, min_pts = 4)
# With learning output
result <- dbscan(data, epsilon = 0.3, min_pts = 4, learn = TRUE)
# Visualize results
plot(data, col = result$cluster + 1, pch = 20)
Run the code above in your browser using DataLab