Nothing
## print the results
print.solveLP <- function( x, digits=6,... ) {
object <- x
save.digits <- unlist(options(digits=digits))
on.exit(options(digits=save.digits))
cat("\n\nResults of Linear Programming / Linear Optimization\n")
if( object$lpSolve ) cat("(using lpSolve)\n")
if( object$status %in% c( 0, 2, 3, 4, 5 ) ) {
cat("\nObjective function")
if( object$maximum ) {
cat(" (Maximum): ")
} else {
cat(" (Minimum): ")
}
cat( object$opt, "\n" )
if( !is.null( object$iter1 ) ) {
cat("\nIterations in phase 1: ")
cat( object$iter1 )
if( object$iter1 >= object$maxiter ) {
cat(" (equals 'maxiter' !!!)")
}
cat("\nIterations in phase 2: ")
cat( object$iter2 )
if( object$iter2 >= object$maxiter ) {
cat(" (equals 'maxiter' !!!)")
}
}
cat("\nSolution\n")
object$solution <- as.matrix(object$solution)
colnames( object$solution ) <- c("opt")
print( object$solution )
if( !is.null( object$basvar ) ) {
cat("\nBasic Variables\n")
print( object$basvar )
}
cat("\nConstraints\n")
print( object$con )
if( !is.null( object$allvar ) ) {
cat("\nAll Variables (including slack variables)\n")
print( object$allvar )
}
if( object$status == 2 ) {
cat( "lpSolve for the dual problem did not succeed but returned",
" status code '", object$dualStatus, "'", sep = "" )
} else if( object$status == 3 ) {
print( object$con[ 1: 4 ] )
cat( "The Constraints are violated. This is most likely due to rounding errors" )
} else if( object$status == 4 ) {
cat( "Simplex algorithm phase 1 did not find a solution within",
"the number of iterations specified by argument 'maxiter'" )
} else if( object$status == 5 ) {
cat( "Simplex algorithm phase 2 did not find the optimal solution within",
"the number of iterations specified by argument 'maxiter'" )
}
} else if( object$status == 1 ) {
cat( "lpSolve returned error code '", object$lpStatus, "'", sep = "" )
} else {
cat( "unknown status code '", object$status, "'", sep = "" )
}
cat("\n")
invisible( x )
}
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.