Nothing
## ----include=FALSE------------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE)
library(apcf)
## -----------------------------------------------------------------------------
# it's advised against setting n_sim < 199
dists <- pat2dists(area=sim_area, pattern=sim_pat_reg,
max_dist=25, n_sim=9, verbose=FALSE)
head(dists)
## -----------------------------------------------------------------------------
pcf <- dists2pcf(dists, r=0.2, r_max=25, stoyan=0.15, n_rank=1)
head(pcf)
## ----fig.width=4, fig.height=3.5----------------------------------------------
plot(pcf)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.