Nothing
##==============================================================================
## Creates a list with the inverse variables
##==============================================================================
Variables <- function(lim, res=NULL, ...) {
if (lim$NVariables == 0)
return(NULL)
if (is.null(res))
res <- Lsei.lim(lim,parsimonious=TRUE,...)$X
variables <- data.frame(values=lim$VarA%*%res-lim$VarB)
rownames(variables)<-lim$Variables
return(variables)
}
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.