Nothing
example.nestedTime3DArrayList <- function
(){
times <- seq(1,10,by=0.1)
a <- array(dim=c(2,2,length(times)))
a[1,1,] <- -0.1*(sin(times)+1.1)
a[2,1,] <- 0
a[1,2,] <- 0
a[2,2,] <- -0.2*(sin(times)+1.2)
return(list(data=a,times=times))
}
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.