Compare traces with different smoothing options.

Compare traces with different smoothing options.

compareSmoothing(d, tPath, idx, alphaV = c(0.01, 0.05, 0.1), n = 10)

Arguments

d

Data matrix
tPath

Interpolated tour path (as list of projections)
idx

Index function
alphaV

Jitter amounts to compare (for jittering angle or points)
n

Number of evaluations entering mean value calculation

Value

Table of mean index values

Examples

# \donttest{
d <- spiralData(4, 100)
tPath <- tourr::save_history(d, max_bases=2)

#> target_dist - cur_dist: 0 
#> generation:  dist =   1.620449 
#> target_dist - cur_dist: 1.620449 
#> generation:  dist =   1.095725 
#> target_dist - cur_dist: 0 
#> generation:  dist =   1.693044 
tPath <- as.list(tourr::interpolate(tPath))

#> target_dist - cur_dist: 0 
#> generation:  dist =   1.693044 
#> target_dist - cur_dist: 1.693044 
#> target_dist - cur_dist: 1.643044 
#> target_dist - cur_dist: 1.593044 
#> target_dist - cur_dist: 1.543044 
#> target_dist - cur_dist: 1.493044 
#> target_dist - cur_dist: 1.443044 
#> target_dist - cur_dist: 1.393044 
#> target_dist - cur_dist: 1.343044 
#> target_dist - cur_dist: 1.293044 
#> target_dist - cur_dist: 1.243044 
#> target_dist - cur_dist: 1.193044 
#> target_dist - cur_dist: 1.143044 
#> target_dist - cur_dist: 1.093044 
#> target_dist - cur_dist: 1.043044 
#> target_dist - cur_dist: 0.9930443 
#> target_dist - cur_dist: 0.9430443 
#> target_dist - cur_dist: 0.8930443 
#> target_dist - cur_dist: 0.8430443 
#> target_dist - cur_dist: 0.7930443 
#> target_dist - cur_dist: 0.7430443 
#> target_dist - cur_dist: 0.6930443 
#> target_dist - cur_dist: 0.6430443 
#> target_dist - cur_dist: 0.5930443 
#> target_dist - cur_dist: 0.5430443 
#> target_dist - cur_dist: 0.4930443 
#> target_dist - cur_dist: 0.4430443 
#> target_dist - cur_dist: 0.3930443 
#> target_dist - cur_dist: 0.3430443 
#> target_dist - cur_dist: 0.2930443 
#> target_dist - cur_dist: 0.2430443 
#> target_dist - cur_dist: 0.1930443 
#> target_dist - cur_dist: 0.1430443 
#> target_dist - cur_dist: 0.09304432 
#> target_dist - cur_dist: 0.04304432 
idx <- scagIndex("Skinny")
compS <- compareSmoothing(d, tPath, idx, n=5)
plotSmoothingComparison(compS)

# }