# NOT RUN {
library(sf)
pts1 <- rbind(c(1, 2), c(3, 2))
pts2 <- rbind(c(1, 1), c(2, 3), c(2, 1))
pts3 <- rbind(c(2, 2), c(3, 3))
cp1 <- component_from_sfg(st_multipoint(pts1), 0.3)
cp2 <- component_from_sfg(st_multipoint(pts2), 0.6)
cp3 <- component_from_sfg(st_multipoint(pts3), 1.0)
pp <- create_pgeometry(list(cp1, cp2, cp3), "PLATEAUPOINT")
pp
pp_core <- spa_core(pp)
pp_core
#Creating a pgeometry object without core
pp2 <- create_pgeometry(list(cp1, cp2), "PLATEAUPOINT")
pp2
spa_core(pp2)
# }
Run the code above in your browser using DataLab