Plot the difference in the non-group component of inequality at increasing bandwidth sizes

incrementalPlot(inc)

Arguments

inc

The list output of the incrementalLID function

Value

A ggplot object

Examples


# Generate dummy observations
x <- runif(10, 1, 100)

# Get distance matrix
dists <- dist(x)

# Bandwidth sizes from 3 to 5
bws <- 3:5

inc <- incrementalLID(x, dist = dists, bws = bws, index = 'gini', type = 'local',
                      weighting = 'distance', FUN = function(x) 1/x^2, minval = 1)
#> 
  |                                                                            
  |                                                                      |   0%
#> Warning: no non-missing arguments to min; returning Inf
#> 
  |                                                                            
  |=======================                                               |  33%
#> Warning: no non-missing arguments to min; returning Inf
#> 
  |                                                                            
  |===============================================                       |  67%
#> Warning: no non-missing arguments to min; returning Inf
#> 
  |                                                                            
  |======================================================================| 100%

# Plot the results
incrementalPlot(inc)