num_points = 100
P.data = data.frame(
x = sapply(1:num_points, function(x)
sin(x) * 10) + rnorm(num_points, 0, 0.1),
y = sapply(1:num_points, function(x)
cos(x) ^ 2 * sin(x) * 10) + rnorm(num_points, 0, 0.1)
)
P.dist = dist(P.data)
eccentricity = eccentricity_filter(P.dist)
Run the code above in your browser using DataLab