data(sp2)
depths(sp2) <- id ~ top + bottom
d <- NCSP(
sp2,
vars = c('prop', 'field_ph', 'hue', 'value'),
maxDepth = 100,
k = 0.01
)
par(mfcol=c(3,1), mar=c(2.5,4.5,1,1))
plot_distance_graph(d, idx=1:6)
plot_distance_graph(d, idx=7:12)
plot_distance_graph(d, idx=12:18)
Run the code above in your browser using DataLab