#' test anisitropy.abs
library(Kdirectional)
library(icetools)
x <- rstrauss(n=100, gamma=0.01, range=0.06)
estimates <- Kest_along_axis(x, theta=pi/4)
s1 <- anisotropy.abs(estimates=estimates)
s2 <- anisotropy.abs(x, theta=pi/4)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.