Nothing
##
## Function for creating 'PSDC' objects
psdc <- function(Flist, F0){
m <- nrow(Flist[[1]])
G <- do.call("cbind", lapply(Flist, function(x) c(x)))
h <- matrix(drop(F0), ncol = 1)
return(list(conType = "PSDC", G = G, h = h, dims = m))
}
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.