# NOT RUN {
d <- spiralData(4, 100)
tPath <- tourr::save_history(d, max_bases=2)
tPath <- as.list(tourr::interpolate(tPath))
idx <- scagIndex("Skinny")
compS <- compareSmoothing(d, tPath, idx, n=5)
plotSmoothingComparison(compS)
# }
Run the code above in your browser using DataLab