library(rhr)
data(datSH)
locoh1 <- rhrLoCoH(datSH[, 2:3], type="k", n=10)
locoh2 <- rhrLoCoH(datSH[, 2:3], type="a", n=1000)
plot(rhrIsopleths(locoh1))
plot(rhrIsopleths(locoh2), border = "red", add = TRUE)
locoh4 <- rhrLoCoH(datSH[, 2:3], type = "k", autoN = TRUE)
rhrTuningParameter(locoh4)
rhrTuningParameter(locoh4, msg = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.