set.seed(123) x <- rnorm(500) y <- rnorm(500) h <- seq(0.1, 5, 0.1) s <- rhrBase::rhrBaseLSCV(x, y, h) h[which.min(s)]
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.