## simulating data
foo <- grf(30, cov.p=c(1, .3))
## forcing some duplicated locations
foo$coords[4,] <- foo$coords[14,] <- foo$coords[24,] <- foo$coords[2,]
foo$coords[17,] <- foo$coords[23,] <- foo$coords[8,]
## locations the duplicated coordinates
dup.coords(foo)
Run the code above in your browser using DataLab