1 | func.out(x, xlab = "Time", ylab = " ")
|
x |
|
xlab |
|
ylab |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | ##---- 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 (x, xlab = "Time", ylab = " ")
{
x = elimna(t(x))
x = t(x)
p = ncol(x)
n = nrow(x)
plot(c(1:p), seq(min(x), max(x), length.out = p), type = "n",
xlab = xlab, ylab = ylab)
flag = func.plot(x, plotit = FALSE)$outpoint
chk = c(1:n)
flag2 = chk[-flag]
nsub = length(flag)
for (j in 1:length(flag2)) lines(c(1:p), x[flag2[j], ])
for (j in 1:nsub) lines(c(1:p), x[flag[j], ], lty = 2)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.