R/accept_rate.R

Defines functions accept_rate

Documented in accept_rate

accept_rate <-
function(object){

rj<-object$rj_acc
mh<-object$mh_acc

est<-list(rj_ar=100*mean(rj),mh_ar=100*mean(mh))

class(est)<-"acceptrate"

est}

Try the conting package in your browser

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

conting documentation built on Jan. 20, 2018, 9:07 a.m.