1 | longreg.plot(x, x.col, y.col, s.id, regfun = tsreg, scat = TRUE, xlab = "X", ylab = "Y")
|
x |
|
x.col |
|
y.col |
|
s.id |
|
regfun |
|
scat |
|
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 25 26 27 28 29 | ##---- 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, x.col, y.col, s.id, regfun = tsreg, scat = TRUE,
xlab = "X", ylab = "Y")
{
ymat = long2mat(x, s.id, y.col)
xvals = longcov2mat(x, s.id, x.col)
n = nrow(ymat)
p = length(x.col) + 1
if (p != 2)
stop("Plot allows a single covariate only")
outmat = matrix(NA, nrow = n, ncol = p)
datx = NULL
daty = NULL
for (i in 1:n) {
outmat[i, ] = regfun(as.matrix(xvals[[i]]), ymat[i, ])$coef
temp = as.matrix(xvals[[i]])
datx = c(datx, temp)
daty = c(daty, ymat[i, ])
}
if (!scat)
plot(datx, daty, type = "n", xlab = xlab, ylab = ylab)
if (scat)
plot(datx, daty, xlab = xlab, ylab = ylab)
for (i in 1:n) abline(outmat[i, 1], outmat[i, 2])
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.