Nothing
qqgld.default <-
function (y, vals, param, ylim, main = "GLD Q-Q Plot", xlab = "Theoretical Quantiles",
ylab = "Sample Quantiles", plot.it = TRUE, datax = FALSE,
...)
{
if (has.na <- any(ina <- is.na(y))) {
yN <- y
y <- y[!ina]
}
if (0 == (n <- length(y)))
stop("y is empty or has only NAs")
if (plot.it && missing(ylim))
ylim <- range(y)
x <- qgl(ppoints(n), vals, param = param)[order(order(y))]
if (has.na) {
y <- x
x <- yN
x[!ina] <- y
y <- yN
}
if (plot.it)
if (datax)
plot(y, x, main = main, xlab = ylab, ylab = xlab,
xlim = ylim, ...)
else plot(x, y, main = main, xlab = xlab, ylab = ylab,
ylim = ylim, ...)
abline(0, 1)
invisible(if (datax) list(x = y, y = x) else list(x = x,
y = 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.