R/summary.out.R

summary.out <-
function(object, ...){
  est <- roundr(c(mean(object$fraud), quantile(object$fraud, c(0.025, 0.975))), 2)
  c(est[1], paste("(", est[2], ", ", est[3], ")", sep = ""))
}

Try the spikes package in your browser

Any scripts or data that you put into this service are public.

spikes documentation built on May 2, 2019, 7:55 a.m.