R/summary.R

In Freshwater-Fish-Ecology-Laboratory/detrange: Estimate Detection Range from Passive Acoustic Telemetry

Defines functions nobs.drfit print.drfit summary.drfit

#' @export
summary.drfit <- function(object, ...) {
  summary(samples(object))
}

#' @export
print.drfit <- function(x, ...) {
  print(summary(x))
}

#' @export
stats::nobs
#' @export
nobs.drfit <- function(object, ...) {
  data_set(object)$nObs
}