Nothing
## Print function for ssanova objects
print.ssanova <- function(x,...)
{
## call
cat("\nCall:\n",deparse(x$call),"\n\n",sep="")
## terms
cat("Terms:\n")
print.default(c(x$terms$labels,x$lab.p))
cat("\n")
## terms overview
cat("Number of unpenalized and penalized terms:\n\n")
print.default(x$desc)
cat("\n")
if (x$method=="v") Method <- "GCV "
if (x$method=="m") Method <- "GML.\n"
if (x$method=="u") Method <- "Mallows CL "
if (x$method=="m") cat("Smoothing parameters are selected by",Method)
else cat("Smoothing parameters are selected by ",Method,"with alpha=",x$alpha,".",sep="")
cat("\n")
## the rest are suppressed
invisible()
}
## Print function for ssanova0 objects
print.ssanova0 <- function(x,...)
{
## call
cat("\nCall:\n",deparse(x$call),"\n\n",sep="")
## terms
cat("Terms:\n")
print.default(c(x$terms$labels,x$lab.p))
cat("\n")
## terms overview
cat("Number of unpenalized and penalized terms:\n\n")
print.default(x$desc)
cat("\n")
if (x$method=="v") Method <- "GCV.\n"
if (x$method=="m") Method <- "GML.\n"
if (x$method=="u") Method <- "Mallows CL.\n"
cat("Smoothing parameters are selected by",Method)
cat("\n")
## the rest are suppressed
invisible()
}
## Print function for gssanova objects
print.gssanova <- function(x,...)
{
## call
cat("\nCall:\n",deparse(x$call),"\n\n",sep="")
## terms
cat("Terms:\n")
print.default(c(x$terms$labels,x$lab.p))
cat("\n")
## terms overview
cat("Number of unpenalized and penalized terms:\n\n")
print.default(x$desc)
cat("\n")
cat("Smoothing parameters are selected by CV with alpha=",x$alpha,".",sep="")
cat("\n")
## the rest are suppressed
invisible()
}
## Print function for ssden objects
print.ssden <- function(x,...)
{
## call
cat("\nCall:\n",deparse(x$call),"\n\n",sep="")
## terms
cat("Terms:\n")
print.default(x$terms$labels)
cat("\n")
## terms overview
cat("Number of unpenalized and penalized terms:\n\n")
print.default(x$desc)
cat("\n")
cat("Smoothing parameters are selected by CV with alpha=",x$alpha,".",sep="")
cat("\n")
## the rest are suppressed
invisible()
}
## Print function for sscden objects
print.sscden <- function(x,...)
{
## call
cat("\nCall:\n",deparse(x$call),"\n\n",sep="")
## terms
cat("Terms:\n")
print.default(x$terms$labels)
cat("\n")
## terms overview
cat("Number of unpenalized and penalized terms:\n\n")
print.default(x$desc)
cat("\n")
cat("Smoothing parameters are selected by CV with alpha=",x$alpha,".",sep="")
cat("\n")
## the rest are suppressed
invisible()
}
## Print function for sshzd objects
print.sshzd <- function(x,...)
{
## call
cat("\nCall:\n",deparse(x$call),"\n\n",sep="")
## terms
cat("Terms:\n")
print.default(c(x$terms$labels,x$lab.p))
cat("\n")
## terms overview
cat("Number of unpenalized and penalized terms:\n\n")
print.default(x$desc)
cat("\n")
cat("Smoothing parameters are selected by CV with alpha=",x$alpha,".",sep="")
cat("\n")
## the rest are suppressed
invisible()
}
## Print function for sshzd objects
print.sscox <- function(x,...)
{
## call
cat("\nCall:\n",deparse(x$call),"\n\n",sep="")
## terms
cat("Terms:\n")
print.default(c(x$terms$labels,x$lab.p))
cat("\n")
## terms overview
cat("Number of unpenalized and penalized terms:\n\n")
print.default(x$desc)
cat("\n")
cat("Smoothing parameters are selected by CV with alpha=",x$alpha,".",sep="")
cat("\n")
## the rest are suppressed
invisible()
}
## Print function for ssllrm objects
print.ssllrm <- function(x,...)
{
## call
cat("\nCall:\n",deparse(x$call),"\n\n",sep="")
## terms
cat("Terms:\n")
print.default(x$terms$labels)
cat("\n")
## terms overview
cat("Number of unpenalized and penalized terms:\n\n")
print.default(x$desc)
cat("\n")
cat("Smoothing parameters are selected by CV with alpha=",x$alpha,".",sep="")
cat("\n")
## the rest are suppressed
invisible()
}
## Print function for summary.ssanova objects
print.summary.ssanova <- function (x,digits=6,...)
{
## call
cat("\nCall:\n",deparse(x$call),"\n",sep="")
cat("\nEstimate of error standard deviation:",x$sigma,"\n")
## residuals
res <- x$res
cat("\nResiduals:\n")
nam <- c("Min", "1Q", "Median", "3Q", "Max")
rq <- structure(quantile(res), names = nam)
print(rq,digits=digits)
cat("Residual sum of squares:",x$rss)
cat("\nR square:",x$r.squared)
## selected summaries
cat("\n\nPenalty associated with the fit:",x$pen)
cat("\n\n")
invisible()
}
## Print function for summary.gssanova objects
print.summary.gssanova <- function (x,digits=6,...)
{
## call
cat("\nCall:\n",deparse(x$call),"\n",sep="")
if (x$family%in%c("Gamma","inverse.gaussian")) {
cat("\n(Dispersion parameter for ",x$family,
" family estimated to be ",format(x$dispersion),")\n\n",sep="")
}
else {
cat("\n(Dispersion parameter for ",x$family,
" family taken to be ",format(x$dispersion),")\n\n",sep="")
}
## residuals
res <- x$res
cat("Working residuals (weighted):\n")
nam <- c("Min", "1Q", "Median", "3Q", "Max")
rq <- structure(quantile(res), names = nam)
print(rq,digits=digits)
cat("Residual sum of squares:",x$rss,"\n")
## deviance residuals
res <- x$dev.res
cat("\nDeviance residuals:\n")
nam <- c("Min", "1Q", "Median", "3Q", "Max")
rq <- structure(quantile(res), names = nam)
print(rq,digits=digits)
cat("Deviance:",x$deviance)
cat("\nNull deviance:",x$dev.null)
## selected summaries
cat("\n\nPenalty associated with the fit:",x$pen)
cat("\n\n")
invisible()
}
## Print function for summary.gssanova objects
print.summary.gssanova0 <- function (x,digits=6,...)
{
## call
cat("\nCall:\n",deparse(x$call),"\n",sep="")
if (x$method=="u")
cat("\n(Dispersion parameter for ",x$family,
" family taken to be ",format(x$dispersion),")\n\n",sep="")
if (x$method=="v")
cat("\n(Dispersion parameter for ",x$family,
" family estimated to be ",format(x$dispersion),")\n\n",sep="")
## residuals
res <- x$res
cat("Working residuals (weighted):\n")
nam <- c("Min", "1Q", "Median", "3Q", "Max")
rq <- structure(quantile(res), names = nam)
print(rq,digits=digits)
cat("Residual sum of squares:",x$rss,"\n")
## deviance residuals
res <- x$dev.res
cat("\nDeviance residuals:\n")
nam <- c("Min", "1Q", "Median", "3Q", "Max")
rq <- structure(quantile(res), names = nam)
print(rq,digits=digits)
cat("Deviance:",x$deviance)
cat("\nNull deviance:",x$dev.null)
## selected summaries
cat("\n\nPenalty associated with the fit:",x$pen)
cat("\n\nNumber of performance-oriented iterations:",x$iter)
cat("\n\n")
invisible()
}
## Print function for sscopu objects
print.sscopu <- function(x,...)
{
## call
cat("\nCall:\n",deparse(x$call),"\n\n",sep="")
## dimension
cat("Dimemsion: ",dim(x$basis)[2],".",sep="")
cat("\n\n")
order <- x$order
if (is.null(order)) order <- 2
cat("Maximum order of interaction: ",order,".",sep="")
cat("\n\n")
if (x$symmetry) {
cat("The fit is symmetric, invariant to variable permutation.")
cat("\n\n")
}
cat("Smoothing parameters are selected by CV with alpha=",x$alpha,".",sep="")
cat("\n")
## the rest are suppressed
invisible()
}
## Print function for sshzd2d objects
print.sshzd2d <- function(x,...)
{
## call
cat("\nCall:\n",deparse(x$call),"\n\n",sep="")
if (x$symmetry) {
cat("The fit is symmetric, with a common marginal hazard and a symmetric copula.")
cat("\n\n")
}
## terms
cat("Terms in hzd1:\n")
print.default(c(x$hzd1$terms$labels,x$hzd1$lab.p))
## terms overview
cat("Number of unpenalized and penalized terms:\n")
print.default(x$hzd1$desc)
cat("\n")
cat("Terms in hzd2:\n")
print.default(c(x$hzd2$terms$labels,x$hzd2$lab.p))
## terms overview
cat("Number of unpenalized and penalized terms:\n")
print.default(x$hzd2$desc)
cat("\n")
cat("Smoothing parameters are selected by CV with alpha=",x$alpha,".",sep="")
cat("\n")
## the rest are suppressed
invisible()
}
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.