boundFitness <- function(logMh, objLims=NULL) {
stopifnot(is(logMh, mhDataClassName))
d <- logMh@data
if(!is.null(objLims)) {
d <- boundValuesDf(d, logMh@fitness, objLims)
}
d
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.