make.read.data <-
function (y)
{
y <- as.matrix(y)
dimnames(y) <- list(NULL, "time")
frame.to.ld(frame = as.data.frame(y), response.column = "time")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.