Nothing
plot.tbss <- function(x, first = 2, last = 2, datatype = NULL, main = "The components with most extreme kurtoses", ...){
if(is.null(datatype)){
datatype = x$datatype
}
datatype <- match.arg(datatype, c("iid", "ts"))
switch(datatype,
iid = {
pairs(selectComponents(x$S, first = first, last = last), main = main, ...)
}
,
ts={
plot.ts(selectComponents(x$S, first = first, last = last), main = main, ...)
}
)
}
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.