# NOT RUN {
data("samplepnt","prnside")
# Point
x=samplepnt
# Border
sidepoly=prnside
# Get the Thiessen polygons
res=tpolygonsByBorder(x,sidepoly)
# Assign the regional id
rids=getRidbytpoly(res$tpolys,x)
# }
Run the code above in your browser using DataLab