# NOT RUN {
## In case of eppexist
exist <- eppexist(pop = pop_epp,
centers = centers_epp,
crs = sp::CRS("+init=epsg:32721"))
l_epp_exist <- leafepp(exist, t = "exist", crs = sp::CRS("+init=epsg:32721"))
## In case of eppproy
proy <- eppproy(pop = exist$pop_uncover)
l_epp_proy <- leafepp(proy, t = "proy", crs = sp::CRS("+init=epsg:32721"))
# }
Run the code above in your browser using DataLab