Nothing
gfunction.the.xi.cc <- function(g.the, xi){
n <- nrow(g.the[[1]])
nthe <- length(g.the)
g.the.xi <- matrix(NA, nrow = n, ncol = nthe)
k <- 0
for(m in g.the){
k <- k + 1
#g.the.xi[, k] <- m[, -1, drop = FALSE] %*% xi
g.the.xi[, k] <- m %*% xi
}
g.the.xi
}
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.