Nothing
#' Simple pretty printer for distance sampling analyses
#'
#' Simply prints out a brief description of the model which was fitted. For more
#' detailed information use [`summary`][Distance::summary].
#'
#' @param x a distance sampling analysis (result from calling [`ds`][ds]).
#' @param ... not passed through, just for S3 compatibility.
#' @aliases print.dsmodel
#'
#' @author David L. Miller
#' @export
print.dsmodel <- function(x, ...){
cat("\nDistance sampling analysis object\n")
cat("\nDetection function:\n", model.description(x$ddf), "\n")
if(!is.null(x$ddf$Nhat)){
cat("\nEstimated abundance in covered region:", x$ddf$Nhat, "\n")
}
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.