library(ggplot2)
library(sp)
data(meuse)
coordinates(meuse) = ~x+y # change into an sp object
G <- auto_basis(manifold = plane(),data=meuse,nres = 2,regular=2,prune=0.1,type = "bisquare")
if (FALSE) show_basis(G,ggplot()) + geom_point(data=data.frame(meuse),aes(x,y))
Run the code above in your browser using DataLab