Why is my calculation of the mean nearest distance between points so big? R

Question

You can generate the point pattern process I am working with to test this yourself. My problem is that the mean nearest distance to other points seems too large for the give