Mean shift: mode-seeking via kernel density gradient ascent (Geron Ch 8, morie.fn hmmnsh)

Mean shift: mode-seeking via kernel density gradient ascent (Geron Ch 8, morie.fn hmmnsh)

Usage

morie_geron_mean_shift(
  X,
  bandwidth,
  kernel = "gaussian",
  max_iter = 300,
  tol = 1e-06,
  merge_tol = NULL
)

Arguments

X

Data.

bandwidth

Kernel bandwidth.

kernel

gaussian/flat.

max_iter

Iteration cap.

tol

Shift tolerance.

merge_tol

Optional mode-merge distance.

Value

List with labels, modes, n_clusters, trajectories_iters, estimate, n, method.

Examples

morie_geron_mean_shift(X = c(1, 2, 3, 4, 5, 6, 7, 8), bandwidth = 0.5)
#> $labels
#> [1] 0 0 1 2 3 4 5 5
#> 
#> $modes
#>      [,1]
#> [1,]  1.5
#> [2,]  3.0
#> [3,]  4.0
#> [4,]  5.0
#> [5,]  6.0
#> [6,]  7.5
#> 
#> $n_clusters
#> [1] 6
#> 
#> $peaks
#>          [,1]
#> [1,] 2.003663
#> [2,] 2.003664
#> [3,] 3.000000
#> [4,] 4.000000
#> [5,] 5.000000
#> [6,] 6.000000
#> [7,] 6.996336
#> [8,] 6.996337
#> 
#> $trajectories_iters
#> [1] 108  42   1   1   1   1  42 108
#> 
#> $bandwidth
#> [1] 0.5
#> 
#> $estimate
#> [1] 6
#> 
#> $n
#> [1] 8
#> 
#> $method
#> [1] "Mean shift (mode seeking)"
#>