Nothing
maketall.fcn <-
function(ymtx)
{
ab <- prod(dim(ymtx))
y <- rep(NA,ab)
rows <- rep(NA,ab)
cols <- rep(NA,ab)
a <- nrow(ymtx)
b <- ncol(ymtx)
counter <- 0
for(i in 1:a)
for(j in 1:b)
{
counter <- counter+1
rows[counter] <- i
cols[counter] <- j
y[counter] <- ymtx[i,j]
}
list(y=y,rows=as.factor(rows),cols=as.factor(cols))
}
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.