1 |
x1 |
|
y1 |
|
x2 |
|
y2 |
|
pts |
|
regfun |
|
fr1 |
|
fr2 |
|
alpha |
|
plotit |
|
xout |
|
outfun |
|
nboot |
|
SEED |
|
xlab |
|
ylab |
|
... |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (x1, y1, x2, y2, pts = NULL, regfun = tsreg, fr1 = 1,
fr2 = 1, alpha = 0.05, plotit = TRUE, xout = FALSE, outfun = out,
nboot = 100, SEED = TRUE, xlab = "X", ylab = "Y", ...)
{
x1 = as.matrix(x1)
x2 = as.matrix(x2)
if (ncol(x1) != ncol(x2))
stop("x1 and x2 have different number of columns")
if (ncol(x1) == 1)
output = ancts(x1, y1, x2, y2, pts = pts, regfun = regfun,
fr1 = fr1, fr2 = fr2, alpha = alpha, plotit = plotit,
xout = xout, outfun = outfun, nboot = nboot, SEED = SEED,
xlab = xlab, ylab = ylab, ...)
if (ncol(x1) > 1)
output = anctsmp(x1, y1, x2, y2, regfun = regfun, alpha = alpha,
pts = pts, SEED = SEED, xout = xout, outfun = outfun,
nboot = nboot, ...)
output
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.