Nothing
get.type <- function(lprec, columns = 1:n, as.char = TRUE)
{
n <- dim(lprec)[2]
if(n < 1)
columns <- integer(0)
ind <- .Call(RlpSolve_is_int, lprec, as.integer(columns))
if(as.char) {
types <- rep("real", length(columns))
types[ind] <- "integer"
}
else
types <- ind
types
}
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.