Nothing
#' @export
summary.stuartOutput <-
function(object,...) {
Time <- as.numeric(object$timer[3])
Models <- nrow(object$log)
Replications <- sum(object$log$pheromone == max(object$log$pheromone), na.rm = TRUE)
Results <- object$log[object$log$pheromone==cummax(object$log$pheromone),]
Results <- Results[!duplicated(Results[,3:ncol(Results)]),]
Out <- list(Subtests=object$subtests,Results=Results,Time=Time,Models=Models,
Replications=Replications,Type=paste(object$call),Software=object$software)
if ('end.reason' %in% names(object)) Out$end.reason <- object$end.reason
class(Out) <- 'summary.stuartOutput'
return(Out)
}
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.