Nothing
#' @export
as.lpp.stlpp <- function(x,...){
if(!any(class(x)=="stlpp")) stop("class(x) must be stlpp")
Y <- as.lpp(x=x$data$x,y=x$data$y,L=x$domain,sparse = F,...)
return(Y)
}
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.