Skip to content

Instantly share code, notes, and snippets.

@bselden
Last active February 20, 2016 15:33
Show Gist options
  • Save bselden/21cf2035145963a66c81 to your computer and use it in GitHub Desktop.
Save bselden/21cf2035145963a66c81 to your computer and use it in GitHub Desktop.
mypattern.qty <- spatstat::ppp(x=jitter(locs@coords[,1]),
y=jitter(locs@coords[,2]),
# round extent to nearest thousandth so resolution will work
#xrange=round(extent(locs)[1:2], -3)+ c(-1000,1000),
#yrange=round(extent(locs)[3:4],-3) + c(-1000,1000),
xrange=round(extent(locs)[1:2], -3)+ c(-10000,10000),
yrange=round(extent(locs)[3:4],-3) + c(-10000,10000),
marks=locs$qtykept)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment