Converts the Steiner tree to smooth paths
tnss_smooth(g, bw = 3, n = 10)Steiner tree computed with tnss_tree
bandwidth of Gaussian Kernel
number of extra nodes to include per edge
data.frame containing the smoothed paths
see see online for tips on plotting the result
xy <- cbind(state.center$x,state.center$y)[!state.name%in%c("Alaska","Hawaii"),]
xy_dummy <- tnss_dummies(xy,root = 4)
gtree <- tnss_tree(cali2010,xy,xy_dummy,root = 4,gamma = 0.9)
tree_smooth <- tnss_smooth(gtree,bw = 10,n = 10)