Nothing
## simple wrappers to convert optima and tolerance results to
## data frames
`as.data.frame.optima` <- function(x, row.names = NULL,
...) {
if (is.matrix(x)) {
res <- as.data.frame(x)
} else {
if(is.null(row.names))
row.names <- names(x)
res <- data.frame(Opt = as.numeric(x), row.names = row.names,
...)
}
res
}
`as.data.frame.tolerance` <- function(x, row.names = NULL,
...) {
if(is.null(row.names))
row.names <- names(x)
res <- data.frame(Tol = as.numeric(x), row.names = row.names,
...)
res
}
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.