Nothing
`print.profileModel` <-
function (x, print.fit = FALSE, ...)
{
cat("\nCall: ", deparse(x$call), "\n\n")
if (class(x) != "profileModel")
stop("An object of class 'profileModel' has to be supplied.")
fitted <- x$fit
BetaNames <- names(x$profiles)[!x$isNA]
quant <- x$quantile
call.grid.bounds <- x$call[["grid.bounds"]]
grid.bounds <- x$grid.bounds
is.scaled <- !is.null(fitted$X.max.scaleFit)
if (print.fit) {
if (is.scaled)
cat("Fitted object (the design matrix is scaled by dividing each of its columns by the corresponding maximum):\n")
else cat("Fitted object:\n")
print(fitted)
cat("\n")
}
cat("Profiled parameters:\n")
print.default(BetaNames, quote = FALSE, print.gap = 2)
cat("\n")
if (!is.null(x$intersects)) {
cat("Asymptotes:\n")
if (all(x$intersects)) {
cat("profileModel has not detected any profiles with asymptotes.\n")
cat("\n")
}
else {
for (i in BetaNames) {
intersects.i <- x$intersects[i,]
if (!all(intersects.i)) {
where.as <- if (!intersects.i[1]) "left"
else if (!intersects.i[2]) "right"
cat(paste(i, ":", sep=""), "possible asymptote on the", where.as, "\n")
}
}
cat("\n")
}
}
if (!is.null(call.grid.bounds)) {
cat("Profiling was done over the specified ranges of values:\n")
print(grid.bounds)
}
else {
if (!is.null(quant))
cat("Quantile was set to:", format(quant, digits = getOption("digits")),
"\n")
else {
cat("Profiling was done over the ranges:\n")
print(grid.bounds)
}
}
cat("Grid size:", format(x$gridsize, digits = getOption("digits")),
"\n")
cat("\n")
cat("Agreement of the objective with fitting method", fitted$call[[1]],
":", x$agreement, "\n")
cat("Values of the objective less than", x$zero.bound, "were considered",
0, "\n")
if (attr(x, "includes.traces"))
cat("The profile traces are included in the object.\n")
}
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.