Nothing
#########################################################################
#' Print a Semiparametric Regression Fit
#'
#' @description This function prints an object of class \verb{bivrecReg}.
#' @param x An object of class \verb{bivrecReg}.
#' @param ... Additional parameters if needed.
#'
#' @importFrom stats printCoefmat
#'
#' @export
#'
print.bivrecReg <- function(x, ...) {
object <- x
if (!inherits(object, "bivrecReg")) stop("Must be a bivrecReg object")
if (object$method=="Chang") {
coeffs <- object$chang_fit$fit
} else {coeffs <- object$leefit$fit}
coeffs<- cbind(coeffs[,1:2], coeffs[,1] / coeffs[,2],
rep(0, nrow(coeffs)))
for (i in 1:nrow(coeffs)) {
coeffs[i,4] <- round(pnorm(abs(coeffs[i,3]), lower.tail = FALSE), digits=5)
#coeffs_df[i,5] <- significance(coeffs_df[i,4])
}
colnames(coeffs) <- c("Estimates", "SE", "z", "Pr(>|z|)")
printCoefmat(coeffs, digits = max(3, getOption("digits") - 2),
signif.stars=TRUE, P.values=TRUE, has.Pvalue=TRUE)
}
#########################################################################
#' Print the Joint CDF, Marginal Survival, and Conditional CDF after Nonparametric Analysis
#'
#' @description This function prints a \verb{bivrecNP} object.
#'
#' @param x An object of class \verb{bivrecNP}.
#' @param ... Additional parameters if needed.
#'
#' @importFrom stats printCoefmat
#'
#' @export
#'
print.bivrecNP <- function(x, ...) {
object <- x
if (!inherits(object, "bivrecNP")) stop("Must be a bivrecNP object")
cat("\nJoint CDF:\n", " ", sep = "")
printCoefmat(x$joint_cdf, digits = max(3, getOption("digits") - 2),
signif.stars=FALSE, P.values=FALSE, has.Pvalue=FALSE)
cat("\nMarginal Survival:\n", " ", sep = "")
printCoefmat(x$marginal_survival, digits = max(3, getOption("digits") - 2),
signif.stars=FALSE, P.values=FALSE, has.Pvalue=FALSE)
if (x$conditional==TRUE) {
cat("\nConditional CDF:\n", " ", sep = "")
printCoefmat(x$conditional_cdf$conditional, digits = max(3, getOption("digits") - 2),
signif.stars=FALSE, P.values=FALSE, has.Pvalue=FALSE)
}
}
#########################################################################
#' Print the Summary of a Semiparametric Regression Fit
#'
#' @description This function prints a \verb{summary.bivrecReg} object.
#'
#' @param x A \verb{summary.bivrecReg} object.
#' @param ... Additional parameters if needed.
#'
#' @importFrom stats printCoefmat
#'
#' @export
#'
print.summary.bivrecReg <- function(x, ...) {
if (!inherits(x, "summary.bivrecReg")) stop("Must be a bivrecReg summary object")
cat("\nCall:\n")
dput(x$call)
cat("\nNumber of Subjects:\n")
dput(as.double(x$n))
cat("\nCoefficients:\n", " ", sep = "")
printCoefmat(x$coefficients, digits = max(3, getOption("digits") - 2),
signif.stars=TRUE, P.values=TRUE, has.Pvalue=TRUE)
cat("\nexp(coefficients):\n", " ", sep = "")
printCoefmat(x$expcoeffs, digits = max(3, getOption("digits") - 2),
signif.stars=FALSE, P.values=FALSE, has.Pvalue=FALSE)
}
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.