## Not run:
# data("guadeloupe")
#
# test=gwfa(points=guadeloupe,q=0,radius=(20*2^((0:6)/2)),
# bandwith=1600,sample_size=3000,cell_size=2000)
# test=test[test$count>100,]#select the cells with at least 100 points.
#
#
# #estimate the fractal dimension on the 7 radius
# X=cbind(rep(1,length(test@radius)),log2(test@radius))
# fit_frac_dim=(do.call(cbind,test[,4:10]))%*%t(solve(t(X)%*%X)%*%t(X))
# test$dimfrac=fit_frac_dim[,2]
#
# #create spatial polygon dataframe
# shp=grid_to_spdf(test,"2970")
#
# #convert to geographic information systems software format
# library(rgdal)
# writeOGR(shp,"guade_analysis.shp","guade_analysis",driver="ESRI Shapefile",overwrite_layer = T)
#
# #use the cartography package
# library(cartography)
# choroLayer(spdf=shp,nclass=5,var="dimfrac",method="fisher-jenks")
# ## End(Not run)Run the code above in your browser using DataLab