# NOT RUN {
plot.new()
data(polygon1)
nodeFillingOutput = nodeFilling(poly=polygon1, node_spacing=0.03)
plot(nodeFillingOutput)
formLatticeOutput = formLattice(nodeFillingOutput)
plot(formLatticeOutput)
formLatticeOutput = editLattice(formLatticeOutput)
#
# Paste the code above into R, then do the editing before
# pasting the code below into R.
#
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