1 |
x |
|
x.col |
|
y.col |
|
s.id |
|
regfun |
|
est |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | ##---- 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, est = tmean)
{
ymat = long2mat(x, s.id, y.col)
xvals = longcov2mat(x, s.id, x.col)
n = nrow(ymat)
p = length(x.col) + 1
outmat = matrix(NA, nrow = n, ncol = p)
for (i in 1:n) outmat[i, ] = regfun(as.matrix(xvals[[i]]),
ymat[i, ])$coef
typval = apply(outmat, 2, est)
list(est.S = outmat, typical.est = typval)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.