plot.new()
data(polygon1)
nodeFillingOutput = nodeFilling(poly=polygon1, node_spacing=0.03)
plot(nodeFillingOutput)
formLatticeOutput = formLattice(nodeFillingOutput)
plot(formLatticeOutput)
if(interactive()){
formLatticeOutput = editLattice(formLatticeOutput)
}
#
Pointdata = splancs::csr(polygon1,20)
densityOut = createDensity(formLatticeOutput,PointPattern=Pointdata,
k=150,intensity=FALSE, sparse = TRUE)
plot(densityOut)
Run the code above in your browser using DataLab