Nothing
plotautocor <- function(data, ask = TRUE, lag.max = 100, ...) {
if (!is.data.frame(data))
data <- read.table(data, header = TRUE)
data <- data[, -1]
data.mcmc <- coda::as.mcmc(data)
coda::autocorr.plot(data.mcmc, ask = ask, lag.max = lag.max, ...)
return(invisible())
}
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.