# Auxiliry function for Beran curves. Replace NA in a vector x with minimum value
RepNAmin <- function(x)
{
min.x <- min(x, na.rm = T)
x[is.na(x)] <- min.x
return(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.