Nothing
get.kind <- function(lprec, columns = 1:n)
{
n <- dim(lprec)[2]
if(n < 1)
columns <- integer(0)
ans <- rep("standard", length(columns))
idx <- .Call(RlpSolve_is_semicont, lprec, as.integer(columns))
ans[idx] <- "semi-continuous"
idx <- .Call(RlpSolve_is_SOS_var, lprec, as.integer(columns))
ans[idx] <- "SOS"
ans
}
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.